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CHAPTER 1 
INTRODUCTION 


•j- ^ 

FOCAL is a service program for the PDP-8 family of computers, designed to help scientlsi-s, 
engineers, and students solve numerical problems. 

The FOCAL^*^ language is used as a tool in a conversational mode; that is, the user creates 
his problem step by step, while sitting at the computer; when the steps of the problem have been 
completed, they can be executed and the results checked. Steps can be quickly changed, added or 
deleted . 

One great advantage of a computer is that once a problem has been formulated, the machine 
can be made to repeat the same steps in the calculation over and over again. Until now, the |ob of 
generating the program was costly, time-consuming, and generally required the talents of a specialist 
called a programmer. For many modest jobs of computation, a person unfamiliar with computers and 
programming would use a desk calculator or slide rule to avoid the delays, expense, and bothersome 
detail of setting up his problem so that the programmer could understand it. 

FOCAL circumvents these difficulties by providing a set of simplified techniques that permit 
the user to communicate directly with the computer. The user has the advantages of the computer put 
at his disposal without the requirement that he master the intricacies of machine language programming, 
since the FOCAL language consists of imperative English statements in standard mathematical notation. 

FOCAL is flexible; commands may be abbreviated, and some may be concatenated within 
the same line. Each input string or line containing one or more commands is terminated by a carriage 
return . 

A great deal of power has also been put into the editing properties of the command language. 
Normally, deletions, replacements, and insertions are taken care of by the line number which indicates 
the replacement or repositioning of lines. If single characters are to be changed within a FOCAL com- 
mand line, it is not necessary to retype the entire string. The changes may be executed by using the 
MODIFY command. Thus, complex command strings may be modified quite easily. 

In operation, the program indicates that it is ready to receive input by typing an asterisk. 
On-line command/input may be either direct (to be executed immediately) or indirect (to be stored 
and executed later) commands. An example of a direct command is 

*TYPE 5*5*5, 1 (User) 

= 125.000* (PDP-8) 

The final asterisk indicates that FOCAL is ready for its next command. All commands may be given in 
immediate mode (see Appendix A). 

tJFormulating On-Line Calculations in Algebraic Language (or FORmula CALculator) 

Trademark of the Digital Equipment Corporation, Maynard, Mass. 
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Text input requires that a numerical digit, in the form ab.cd and within a range of 1 .01 to 
31 .99, follow the * . The number to the left of the period is called the group number. The nonzero 
number to the right is called the specific line or step number. While keying in command/input strings, 
the rubout key and the left arrow may be used to delete single characters or to kill the entire line, 
respectively . 

Since the command decoder is table driven, FOCAL can be modified by a small binary tape 
to understand foreign languages commands. (See Appendix F-2) 

FOCAL is written especially for the educational and engineering markets and is intended to 
be used as a problem solving tool. It gives quick and concise reinforcement, minimizes turnaround 
time, and provides an unambiguous printed record. 

FOCAL is also an extremely flexible, high accuracy, high resolution, general-purpose desk 
calculator and demonstration program. 

This document describes the language, operating procedures for Disk Monitor and FOCAL; 
use of High Speed reader; addition of user function FNEW; and many other details of interest. Symbol 
tables, lists, and flow-charts are included. 

There are also descriptions of the 10-digit overlay, 4 user overlay, and the complete 
graphics function . 
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CHAPTER 2 
COMMANDS 


2.1 TYPE, ASK 

The TYPE and the ASK statements are used for output and Input of literals, alphanumeric 
calculations, and formats. The simplest form of the TYPE statement is a command (e.g., TYPE A*1 .4). 
This will cause the program to type =, evaluate the expression, and type out the result. Several 
expressions of this kind may be typed from the same statement if the expressions are each ended by 
commas . 

The ASK statement is similar to the TYPE statement in form, but only single variable names 
can be used instead of expressions, and the user types in the values. 

2.1.1 Literals 

For output of literals, the user may enclose characters in quotation marks. The carriage 
return will automatically generate closing quotation marks. The bell may only be inserted during 
initial input, not via the MODIFY command. 

2.1.2 Numerical Input Formats 

Keyboard responses to ASK inputs may 

a. have leading spaces 

b. be preceded by + or - sign if desired or required 

c. be in any fixed point or floating point format 

d. be terminated by any terminating character, carriage return, or ALTMODE. It is 
recommanded, however, that the space be adopted as the conventional and general purpose input 
terminator. The ALTMODE is a special nonprinting terminator that may be used to synchronize the 
program with external events. For example, to insert special paper in the teletype before executing 
the program, type Ask A; GO and RETURN, then load the paper, and hit ALT MODE. The value of 
the variable used remains unchanged. 

2.1 .3 Alphanumeric Input Formats 

Input data that is in response to an ASK command may take any format, may be signed or 
unsigned, and must be terminated by a legitimate terminating character (space, CR, comma, /, etc.). 
This means that alphabetic input may also be accepted by an ASK input command (see 3.4.9). This is 
done by a simple hash-coding technique so that the program can recognize keyboard responses by a 
single comparison. See example under the IF command for an illustration of how to program the 
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recognition of the user reply "WAIT”. This is possible because the leading zero causes a character 
string to be interpreted as a number, (e.g., 

*TYPE OANSWER = 0.261 30E+22*). 

Any literal word containing the letter "E" twice in one input will cause the ASK statement to be 
terminated as the program interprets this letter as an exponent. 

2.1.4 Special Characters 

The exclamation point (!), percent (%), dollar sign ($), and the number sign (^) may be 
used next to quotation marks or by themselves. They cannot be used to terminate alphanumeric 
expressions. They may be used in either TYPE or ASK commands. 

The TYPE statement precedes its numerical typeouts with an equal sign (=) before beginning 
the output conversation process. The ASK statement types a colon (:) when it is ready to receive key- 
board data. 

To type an expression before its results, the user may enclose the expression in question 
marks. This is a special use of the trace feature. 

*TYPE ?A*5.2? 

A*5. 2:^10.40 
* 

2.1.5 Print Positions 

Carriage returns are not automatically supplied at the termination of a typeout. To supply 
carriage returns within a TYPE or ASK statement, the exclamation mark (!) is used. This is similar to 
the use of the slash in FORTRAN format statements. 

Occasionally, it is desirable to return the carriage and type out again on the same line 
without giving a line feed. A number sign (^) returns the print mechanism to the left hand margin but 
does not feed the paper forward . This feature may be used to plot another variable along the same 
coordinate. 

2.1.6 Symbol Table 

TYPE $ (dollar sign) causes the contents of the symbol table to be typed out with the current 
values of all variables created. The symbol table is typed with subscripts and values in chronological 
order. The routine then returns as though a carriage return had been encountered in the TYPE state- 
ment, thereby terminating the TYPE command. Both the TYPE and the ASK statements may be followed 
by a semicolon (;) and other commands, unless a $ is in the string. 
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2.1.7 Output Formats 

The output format may be changed within a TYPE statement by %X.YY, where X and YY are 
positive integers less than 31 . X is equal to the total number of digits to be output and YY is equal 
to the number of digits to the right of the decimal point. 

During output, leading zeroes are typed as spaces. If the number is larger than the field 
width indicates, FOCAL will convert to E format. E format is also specified by % alone. (Floating- 
point decimal: iO.XXXXXXXEiY, where E means "10 to the Yth power".) The current output format 
is retained until explicitly changed. If a number is too large for the current format, the E format is 
used temporarily. 

2.1.8 Terminators 

In the ASK statement, arguments are scanned by the GETARG Recursive Routine and may 
therefore be terminated by any legitimate terminating character (e.g., space, comma, *, etc.). In 
the TYPE statement, arguments are scanned by the EVAL Recursive Routine and must therefore be ter- 
minated by comma, semicolon, or carriage return. In either the TYPE or ASK statement, command 
arguments may be preceded by format control characters ^ ! ". Example: 

*ASK?A B C ? 

A :5, B :6 C :7; * 

All commands except WRITE, RETURN, MODIFY, QUIT and ERASE may be combined on the same line 
if separated by a semicolon. 

2.1.9 Off-Line Data Tapes (c.f.. Section 4.5.3) 

To prepare data tapes off-line, type the data word, the terminating space, and the "here-is" 
key. Use backspace and rubout to remove characters off-line. 

2.1.10 Corrections 

For editing input to an ASK command before the Input has been terminated, the left arrow 
(•*-) is used . 

2.1.11 Roundoff 

Numbers to be typed out are rounded-off to the last significant digit to be printed (i .e., 

the rightmost digit of the requested format) or to the sixth significant digit, whichever is smaller. 
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2.2 


DO 


The DO command is used chiefly to form subroutines from single lines, groups of lines, or 
from the entire text buffer. Thus, the instruction DO 3.3 makes a subroutine of line 3.3. For a single 
line subroutine, control will be returned when the end of the line is encountered or when the line is 
otherwise terminated (e.g., by a RETURN statement, or in the case of TYPE, with the $). 

One of the most useful features of a command language of this type is the ability to form 
subroutines out of entire groups. Thus, the statement DO 5 calls all of group 5 as a subroutine 
beginning with the first group 5 line number. Control will then proceed through the group numbers 
going from smaller to larger. A return or an exit is generated from this type of subroutine by using the 
word RETURN, or by encountering the end of that group, or by transferring control out of the group via 
a GOTO or IF command. Similarly, the entire text buffer may be used as a recursive subroutine by 
simply using DO or DO ALL. 

The DO statement may be concatenated with other legitimate commands by terminating it 
with a semicolon. Thus, a single line may contain a number of subroutine calls. In this way, several 
forms of complex subroutine groupings may be tested from the console. 

The number of DO commands which may be nested linearly or recursively is limited only by 
the amount of core storage remaining after inclusion of the text buffer and the variable storage. 

NOTE 

When a GOTO or IF statement is executed within a DO 
subroutine, control is transferred immediately to the 
object line of the GOTO command; that line will be 
executed and return made to the DO processor. If the 
next line number is within the group (if this is a group 
subroutine), it will be executed. If, however, a line 
number outside of that group is about to be executed, 
then a return will be made from the DO subroutine and 
if any of the DO command line remains, it will be 
processed . 

2.3 EDITING AND TEXT MANIPULATION FACILITIES 

2.3.1 Command-Input 

A line number which has already been used and is reused in a new input will cause the new 
input to replace the line that previously had that number. Insertions are made at the appropriate point 
in a numerically-ordered string of lines. For example, line number 1 .01 (the smallest line number) 
will be inserted in front of (or above) line number 1.1. The largest line number is 15.99. 
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2.3.2 


ERASE 


Removal of a single line may be made by using the ERASE command. For example, ERASE 

2.2 will cause line 2.2 to be deleted . No error comment will be given If that line number does not 
exist. The command ERASE 3 or 3.0 will cause all of group 3 to be erased. To delete all of the text, 
one must type the words ERASE ALL. 

ERASE, used alone, has the function of merely removing the variables. This may also be 
thought of as Initializing the values of the variables to zero. 

To examine a single line, type WRITE followed by the line number. For example, WRITE 

3.3 will cause line 3.3 to be typed out with its line number on the Teletype. WRITE 4.0 will cause all 
of group four to be written on the Teletype. WRITE ALL will cause all of the text to be printed on the 
Teletype, left Justified, with title and line numbers in numerical order. 

2.3.3 MODIFY 

When only a few characters of a particular line must be replaced, the MODIFY command is 
used to avoid replacing the entire line. For example, to change characters in line 5.41, type MODIFY 
5.41 . This command is terminated by a carriage return, and the program waits for the user to type that 
character at which he wishes to make changes or additions. The program will then type out the con- 
tents of that line until the search character is typed. (The search character is not echoed when it is 
first keyed in by the user.) The program will now accept input. 

At this point, the user has seven options: 

a. type in new characters in addition to the ones that have already been typed out; 

b. type a form-feed; this will cause the search to proceed to the next occurrence, if any, 

of the search character; 

c. type a bell which allows him to change the search character just as he did when first 
beginning to use the MODIFY command; 

d. use the rubout key to delete characters going to the left; 

e. type a left arrow to delete the line over to the left margin; 

f . type a carriage return to terminate the line at that point and move the text to the right; 

g. type line-feed to save the remainder of the line. 

The ERASE ALL and MODIFY commands are generally used only in immediate mode, as 
these commands return to command mode upon completion. The reason for this is that internal pointers 
may be changed by these commands. 

During command/input, the left arrow will delete the line numbers as well as the text. 

During the MODIFY command typing the left arrow will not delete the line number. 

When the rubout key is struck, a backslash (\) is typed for each character that is deleted. 
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NOTE 


Any modifications to the text will cause the variables 
to be deleted as if an ERASE command had been given. 
This is caused by the organization of the data structure. 
It is justified by the principle that a change of program 
probably means a change of variables as well . 


2.4 FOR 

This command is used for convenience in setting up program loops and iterations. The 
general format is: 

FOR A = B, C, D; . 

The index A is initialized to the value B, then the command string following the semicolon is executed 
at least once. When the carriage return is encountered, the value of A is incremented by C and com- 
pared to the value of D. If A is less than or equal to D, then the command string after the semicolon 
is executed again. This process is repeated until A is greater than D. 

Naturally, A must be a single variable; but B, C, and D may all be expressions, variables, 
or numbers. The computations involved in the FOR statement are done in floating point arithmetic. If 
comma and the value C are omitted, then it is assumed that the increment is one. For example: 

SET B = 3; FOR I = 0, 10; TYPE B t I, ! (pov/er of 3) 


2.5 IF 

To provide transfer of control after a comparison, we have adopted the IF statement format 
from FORTRAN. The normal form of the IF statement contains the word IF, followed by a space, a 
parenthesized expression, and three line numbers separated from each other by commas. The program 
will GOTO the first line number if the expression is less than zero, the second line number if the 
statement has a value of zero, and the third line number if the value of the expression is greater than 
zero. 

Alternative forms of the IF command are obtained by replacing the comma between the line 
numbers by a semicolon. In this case, if the condition is met which would normally cause the program 
to transfer to a line number past that position, then the remainder of the line will be executed. 
Example: 

ASK REPLY 

IF (REPLY -OWAIT) 6.4, 5.01; RETURN 

IF (REPLY - OYES) 6.3, 5.02; 6.3 
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NOTE 


The IF command could occasionally fall to take the 
= 0 branch due to internal computation and truncation 
errors. 


2.6 GOTO 

This command causes control of the program to be transferred to the indicated line number. 

A specific line number must be given as the argument of the GOTO command. If command is initially 
handed to the program by means of an immediately executed GO, control will proceed from low num- 
bered lines to higher numbered lines as is usual in a computer program. Control will be returned to 
command mode upon encountering a QUIT command, the end of the text, or a RETURN at the top level . 

The operation of the GOTO is slightly more complicated when used in conjunction with a 
FOR or a DO statement. Its operation is perfectly straightforward when used with any other statement. 

2.7 RETURN 

The RETURN command is used to exit from DO subroutines. It is implemented Internally by 
setting the current program counter to zero. When this situation is encountered by the DO statement 
it exits. (Refer to the DO command. Section 3.2.). 

2.8 QUIT 

A QUIT causes the program to return immediately to command/input mode, type *, and 

wait. 

2.9 COMMENT 

Beginning a command string with the letter C will cause the remainder of that line to be 
ignored so that comments may be inserted into the program. 

2.10 CONTINUE 

This word is used to indicate dummy lines. For example, it might be used to replace a line 
referenced elsewhere without changing those references to that line number. 

2.11 SET 

The SET command for arithmetic substitution is used for setting the value of a variable equal 
fo the result of an expression. The SET statement may contain function calls, variable names, and 
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numerical literals on the right hand side of the equal sign. All of the usual arithmetic operations plus 
exponentiation, may be used with these operands. The priority of the operators is a standard system: 

4— /*t. These, however, may be superseded by the use of parenthetical expressions. The SET state- 
ment may be terminated by either a carriage return or a semicolon, in which case it may be followed 
by additional commands. For example: 

SET AA=B(5+<6-K:0NST>*ALPHA/[5/BETA]);G0T0 3.2 

2.12 HIGH-SPEED READER 

2.12.1 General 

The asterisk (*) is also used as a flip-flop control over the selection of the input device to 
be used by a FOCAL program. (See the examples that follow.) An out-of-tape condition will return 
to low-speed reader input and change the status of the * flip-flop. An error condition, however, does 
not change that * flip-flop (see notes below). 

For example, typing: 

— ^ 

will read in a program tape or a series of immediate commands. 

**;ASK ABCDZ 

will fill AB with data from tape. If tape is empty, control will return to command mode. 

*1.1*; FOR 1=1, 5; ASK AX(I) 

*DO 1.1 

If the tape contains fewer than 5 pieces of data, then remaining items are taken from keyboard. (See 
c below.) 


2.12.2 Other Rules 

a. * as a command may be concatenated with other processes [JMP (PROC): 

(e.g., 01.30*; ASK A, B;*) 

b. If an out-of-tape condition is encountered while reading commands, then the input 
device is switched to keyboard and all is returned to normal . (This occurs when the user has no reader.) 
It is equivalent to receipt of a left arrow. [JMP (IBAR)] . 

c. If an out-of-tape condition occurs while executing an ASK command, then FOCAL 
responds as if the end of the command line (carriage return) has been reached. [ISZ PDLXR; POPJ] 

Thus, 

**; ASK A,B,C,D 

produces::: (out of tape on C): and the user is back to normal mode. 
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However, 


*ERASE 

**; for 1=1 , 20; ASK A(I); TYPE I, ! . 

: = 1 .0000 
: = 2.0000 
: =3.0000 

: (ouf of tape for 1=4) 

: (now accepting from keyboard) 123, = 5.0000 
: 345, = 6.0000 
: ?01.00 (Control -C typed) 

* TYPE $ 

1 @ (00) = 7.0000 
A@ (01) = (data from tape) 

A @ (02) = (data from tape) 

A @ (03) = (data from tape) 

A@ (04) = .0000 
A@ (05) = 123.0000 
* A@ (06) =345.000 

d. When an error occurs from the reader (illegal command, etc.), the code will be typed 
out and input device control returned to the low-speed device. However, the device flip-flop (HSPSW) 
will still indicate that the reader is active. Consequently, it will be necessary to give two asterisks 
before the reader will be activated again. 

*****?12.83 (Buffer full) 

** 

Reader now active again). 

e. It is necessary to have a fairly long timing loop to detect the out-of-tape condition 
(slow readers, restart delays, etc.). As a result, the user of a PDP-8/S may encounter long delays if 
there is no high speed reader or when the reader is out of tape. However, the initial dialogue makes 
a correction for this when an 8/S is being used. 

f . Since the reader operates with the interrupt on, one may use Control-C to return at 
once to keyboard input mode. A manual interrupt via Control-C (?01 .00) or a console restart (?00.00) 
gives the same effect. 

g. All commands, including may be executed in immediate mode from the high speed 
reader. This has several beneficial results: 

(1) Program tapes may be composed that are self-protecting and self-starting 

ERASE ALL (protection) 

01 .10 ASK "Power of 2?"REPLY (input indirect program) 

01 .30 TYPE 2 REPLY, ! ,GOTO 1 . 1 
(etc) 

GOTO 1 . 1 (starting) 

5, 3, 1 (data) 

This particular program is an infinite loop and must be stopped by a Control-C 
from the keyboard . 
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(2) Programs may chain themselves together. 

ERASE ALL 

3.4 TYPE "NUMBER 1"!!!; ASK A 

3.5 * (indirect command) 

*; GO (device restored to low speed and program 

started) 

The printout from this tape will be: 

** (START READER) 

****** NUMBER 1 

(Three lines accepted) 

(Erase processed) 

: (waiting for keyboard input) ^ (user) 

(execution of 3.5 * at this point will reactivate the high speed reader). 

(3) Immediate mode commands on the tape allow maximum storage for variables. 

(4) If the interrupts are disabled by the patches shown in Section 4.5.3, then two 
tapes may be merged from both high- and low-speed readers by a resident FOCAL 
program . 

2.13 THE FUNCTIONS 

2.13.1 General 

The functions are provided to give extended arithmetic capabilities and the potential for 
expansion to additional input/output devices. There are basically three types of functions. The first 
group contains integer parts, sign part, square root, fractional, and absolute value functions. The 
second group has the input/output for scope and analog/digital converter functions. The third group 
has extended arithmetic computations of trigonometric and exponential functions. 

A function call consists of no more than four letters beginning with the letter F and followed 
by a parenthetical expression (e.g., FSGN (A-B *2)). This expression is evaluated before transferring 
to the function process itself. 


2.13.2 Analog to Digital 
a . Input 

The function FADC(X) is used to take a reading from an analog-to-digital converter. 

The value of the function is a 12-bit integer reading. The argument "X" is the channel member (AX08) 
in decimal . Additional version of the ADC function could be designed to provide for synchronization 
by a clock or other means, (c.f.. Chapter 5) 

*SET A=FADC ( ) *5 
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b . Output 

The scope function FDIS (expression, expression) is used to set and display an X-Y 
coordinate on a Model 34 Scope and scope interface. The value returned for each of these functions 
is the integer part of the second expression. 

*SET Z =FDIS(X,X43/50) 


2.13.3 Extended Functions 

The extended arithmetic functions (FEXP, FLOG, FATN, FCOS, FSIN) are retained at the 
option of the user. They consume approximately 800 characters of text storage area. These arithmetic 
functions are adapted from the extended arithmetic functions of the three-word, floating point package. 

2.13.4 Random Numbers 

A simple random number generator is provided in the basic package as FRAN()! An expanded 
version could incorporate the random number generator from the DECUS library. 

Functions for other devices are provided as overlay tapes (see Appendix H). 


2.13.5 Standard Functions 

a. Trigonometric Functions 

All arguments are in radians 

FSIN ( ) - the sine functions 
FCOS ( ) - the cosine function 
FATN ( ) - the arctangent 

From these functions, the user may compute all other trigonometric functions. (See FOCAL User’s 
Manual) 

b. Logarithmic Functions 

FLOG ( ) - log to the base e or Naperian base 
FEXP ( ) -etothepov^r 

c. Arithmetic Functions 

FSQT ( ) - the square root 

FSGN ( ) “ one (1) with the sign of the argument 
FABS ( ) “ the absolute value 

FITR ( ) - the next smaller integer part maximum of 1024 
LOG,q (ARG) = LOG^ (ARG) *LOG^Q(e) 

LOG^q (e) =0.434295 

LOG^ (10) =2.30258 

e =2.71828 

where: 

1 degree = .0174533 radians 
1 radian = 57.2958 degrees 
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2.13.6 Using The Arctangent 


An arctan function cycles between + it/2 and - ir/2. Thus, to get a correct range for 0-2 ir 


radians from the expression FATN(Y/X), we must use the signs of X and Y . 


X 

Y 

fatn(xA) 

+ 

+ 

O-Pl/2 

- 

+ 

PI/2 - PI 

- 

- 

PI - 3*Pl/2 

+ 

- 

3*Pl/2 - PI *2 

♦ GO 






A 

Y 

FUNCTION 


COMPUTED 


0.00 = 

1 .00 = 

0 . 00= 

0.000onr 

X 


= 

0.30 = 

0.96 = 

0.30 = 

0. 300000 

= 

0. 300000 


0.60 = 

0.83= 

0.57= 

0.600000 

X 

f ^ • 60 0 (''00 

= 

0.90 = 

0.62 = 

0.78= 

0 . 900000 

X 

0.900000 


1 . 20= 

0.36 = 

0.93= 

1 .200000 

X 

1.200000 

= 

1 . 50= 

0.0 7 = 

1.00 = 

1 . 500000 

X 

1 . 500000 

-r 

1.80=- 

0.23= 

0.97=- 

1 . 3-61 600 

X 

1 . R00000 

s 

2.10=- 

0.51 = 

0.86=- 

1.041600 

X 

2. 100000 

=: 

2. 40=- 

0.7 4= 

0.68=- 

0. 741 595 

X 

2. 400000 

= 

2.70=- 

0.91 = 

0.43=- 

0.441 595 

X 

2. 700000 

s 

3.00=- 

0.99 = 

0. 1 4=- 

0. 141 595 

X 

3.000000 

s= 

3.30=- 

0.99=- 

0.16= 

0. 1 58403 

X 

3. 300000 

= 

3.60=- 

0.90=- 

0.44= 

0.458402 

X 

3. 600000 

= 

3.90=- 

0.73=- 

0.69= 

0. 758402 

X 

3. 900000 

= 

4.20=- 

0.49=- 

0.87 = 

1 .0 58 400 

X 

4.200000 

= 

4. 50=- 

0.21=- 

0.96= 

1.358400 

X 

4. 500000 

= 

4.80 = 

0.09=- 

1 .00=- 

1 .483200 

X 

4. 800000 

s 

5.10 = 

0.38=- 

0.93=- 

1 . 183200 

X 

5. 100000 


5.40= 

0.64=- 

0.77=- 

0.883196 

X 

5. 400000 

= 

5.70= 

0.84=- 

0.55=- 

0.583195 

X 

5. 700000 

S 

6.00 = 

0.96=- 

0.28=- 

0.283198 

= 

6.000000 

X 

6.30 = 

1.00= 

0.02= 

0.016802 

= 

0.016802 

X 

6.60 = 

0.95= 

0.31 = 

0. 316803 

X 

0.316803 

X 

6.90= 

0.82 = 

0.58= 

0.616800 

X 

0.616800 


C-FOCAL » 8/68 

01.05 T !!l!*' INDEX X Y FUNCTION COMPUTED 

01.10 FOR 1=0. .3*71 TYPE !.%4.08.lJD 2 

01.20 TYPE liilibRlTE ALL 

01.30 OUIT 

02.10 5ET Y=FSIN(1)I SET X=FCOS<I) 

02.20 TYPE X. Y. Z8.06.FATN( Y/<X+ IE- 10>)1 DO 131 TYPE " " THI 

13.10 IF (X>13.3.13.2*13.3 

13.20 SET X=1E-100 

13.30 SET TH=FATN<FABS<Y/X>) 

13.40 SET P 1=3. 141596 

13.50 IF <Y) 13. 6i IF CX) 13.71 RETURN 
13.60 IF CX) 13. 81 SET TH=PI+PI-7Hl RETURN 
13.70 SET TH«PI-TH) RETURN 
13.80 SET TH=P1+TH» RETURN 

* 
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2.13.7 Boolean Functions 


TRUE is +1 
FALSE is -1 


*D 15 

A B 

AND 

OR 

NOR 

XOR 

CARRY SUM 

=-!=-! 

=-l = 

-1 

1 = 

1 

=-l=-l 

— 1- 1 

=-l = 

1 

1 = 

-1 

=-l= 1 

= 1=-1 

=-l = 

1 

1 = 

-1 

—1= 1 

= 1= 1 

= 1 

1 

-1 = 

1 

= 1=-1 


XOR is A*B 
NOR is FSGN(-A-B) 

OR is FSGN(A+B) 

AND is FSGN(A+B-1) 

NOT(A) is -A 

The result of adding A and B is 

CARRY = FSGN(A+B-1) 

SUM = -A*B 


*WRITE 15 

15.05 TYPE " A B AND OR NOR XOR CARRY SUM"! 

15.10 FOR A=-l,2,l; FOR B=-1,2,1;TYPE A,B," DO 15.2 

15.15 QUIT 

15.20 TYPE FSGN(A+B-1),FSGN(A+B),FSGN(-A-B),A*B," "FSGN(A+B-1),-A*B, ! 


2.13.8 FNEW - A User Function 

This function name may be used to cal! a machine language routine for any reason. 
(See Section 4.4.1) 


2 . 14 THE LIBRARY COMMAND 

The form and usage of this mass storage command will vary with the computer and FOCAL 
system used . (c.f. , 4.6) 


2.14.1 L-Command For Single User System 

The command may be given in either direct or indirect mode. Execution of this command 
first causes the octal typeout of the contents of four FOCAL pointers: CFRS, BUFR, LASTV, and 
BOTTOM, respectively. The second action Is to type out whatever characters follow the "L" to serve 
as operating instructions for the user. The third action is to turn off the interrupts and transfer to the 
Disk Monitor or 8-Library System by jumping to 7600. 
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The four octal numbers represent: 

a. the start of text buffer, 

b. the end of text buffer, 

c. the end of the variable list, 

d. the bottom of the push-down list. 

These command features will permit optimum usage of available disk storage and be compat- 
ible with the Disk Monitor. 

After debugging a program, a typical user will execute ERASE and LIB. (This causes B and 
C to be equal In the 4K system.) He will then save the program and restart or call another program. 
(See Section 3.4.12) 

Manual Chaining may also be done. For example, when a program reaches line 12.3, It 

may need to call another routine (as In a series of teaching programs, demos, or math subroutines). 

The user, however, must be given Instructions on how to proceed: 

12.30LIB .CALL LES2 

For example, execution of 12.3 may produce: 

3206 

3345 

3401 

4407 

.CALL LES2 

.CALL LES2 [User types this] 

.START 

* 

In the 8K Version, the text and variables are stored Independently. For this reason, the 8K 
version can have different programs operating on the same data. (See Section 3.4.14) 

2.14.2 LIBRA Command Specifications for Multi-User Systems* 

Four modifiers of the LIBRARY command are Implemented to allow automatic program 
storage, retrieval, and management In multi-user FOCAL. This extension to the FOCAL system is 
Implemented under the segment name LIBRA and requires at least an 8K PDP-8 with one DF32. 

The LIBRARY command and Its variations are: 
a. To save a program on disk, 

LIBRA SAVE name } 

Where "name" is a 1 to 4 character Identifier and ^ is described In the FOCAL language specifications. 


*Not completed 
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Errors: 


(1) A program with on identical name has been found in the directory list 

(2) Name missing from command 

(3) Disk l/O error (non-recoverable) 

b. To call a program on disk, 

LIBRA CALL name J 

Errors: 

(1) No such program on directory list 

(2) Name missing from command 

(3) Disk l/O error (non-recoverable) 

c. To delete a program from disk, 

LIBRA DELETE name j 

Errors: 

(1) No such program name in directory list 

(2) Name missing from command 

(3) Disk I/O error 

d. To list the directory 

LIBRA LIST ; 

Errors: 

(1) Disk l/O error 

NOTE 

This command will destroy any program by an effective 
"ERASE ALL". 

The directory is printed ten across for as many lines as necessary. 

2.14.3 DF32 FOCAL FILE STRUCTURE 

Programs are stored in blocks 1600g words long. This allows 36 blocks of storage on one 
DF32 and a directory of 512 words or 256 entries. This directory is sufficient for the maximum DF32 
configuration allowable on a PDP-8. 


1. Disk 

36 blocks 

2. Disk 

72 blocks 

3. Disk 

1 10 blocks 

4. Disk 

146 blocks 
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The directory Is a linear list with a maximum size of 512 words (with 2 words/entry). Word position In 
the list corresponds to the block position on the disk. The blocks begin at location lOOOg from the end 
of the directory and extend In Increments of 1600g to the end of the disk. The end of the list is an 
entry of ones. Unused blocks are indicated by entries of all zeroes. 

The LIBRARY functions swap users in the multiple user system. This diminishes the total 
number of blocks by the maximum number of allowed users. A disk program Is required to clear the 
directory, and to set the maximum number of blocks available. 

2.15 WRITE 

The WRITE command is used to list the entire indirect program (WRITE ALL or W), specified 
groups, or single lines. When all text is printed, a leader-identifier Is given at the top of the listing. 
This identifies which major version is being used for the particular indirect program. (FOCAL, 1969; 
8K FOCAL @ 1969; 4-word @ 1969). 


NOTE 

The WRITE command disables the trace. 
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CHAPTER 3 
FOCAL USAGE 


3.1 REQUIREMENTS 

Any 4K PDP-8 family computer with Teletype may be used with FOCAL: PDP-5, PDP-8, 
PDP-8/S, PDP-8/I, PDP-8/L, LAB-8, LINC-8, TSS-8, PDP-12. 

3.2 LOADING PROCEDURE 

a. The RIM or Read-In-Mode Loader must be in memory. (See RIM Loader Manual for a 
thorough discussion.) 

b. The RIM Loader is used to load the Binary Loader. (See Binary Loader Manual for a 
complete description.) 

c. The Binary Loader is used to load FOCAL. 

d. Upon halting, press the CONTINUE key, since the program is loaded in two sections. 

e. Place 200, the starting address of FOCAL, into the Switch Register when the complete 
tape has been loaded . 

f. Press the LOAD ADDRESS key. 

g. Press the START key. 

h. The initial dialogue will begin. 

3.3 INITIAL DIALOGUE 

The program will identify the DEC 12-bit computer you are using and make appropriate 
corrections to itself. If the user determines that extra space is required, the program will permit rejec- 
tion of extended functions. 

FOCAL is ready for commands when it types *. 

3.4 OPERATION 

3.4.1 Restart Procedure 

There are two methods to restart the system . 

Method 1 - Type the character control/C at any time; (FOCAL acknowledges this by typing 

? 01 . 00 ). 

Method 2 - a. Put 200 into the Switch Register 

b. Press the STOP key 

c. Press the LOAD ADDRESS key 

d. Press the START key 

e. The program will then type 700.00 indicating a manual restart, and an 
asterisk indicating it is ready to receive input. 
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3.4.2 Keyboard Error Recovery 

If an error is made while typing commands to FOCAL, one of the following methods may be 
used to recover: 

a. Use the RUBOUT key on the teletype keyboard to erase the preceding character. The 
RUBOUT key echoes \ for each character removed. 

b. Use the MODIFY command, with the modify control characters, to search the command 
string for any character In error and alter or delete that character. 

c. Use Left Arrow to delete over to the left margin. 

d. Use Left Arrow to delete Input data. 

3.4.3 Parentheses 

The following parenthetical pairs may be used In any alphanumeric expression: parentheses, 
angle brackets ( < >)/ and square brackets ( [ ] ). The program checks to see whether the proper 
matching terminator has been used at the correct level . Use of these terminators In different configura- 
tions provides additional clarity In reading alphanumeric expressions. 

3.4.4 Trace Feature 

A trace feature may be used to detect errors, follow program control, and create special 
formats. To Implement the trace feature. Insert a question mark Into a command string at any point. 
Each succeeding character will then be typed out as It Is Interpreted until another question mark Is 
encountered or until the program returns to command-input mode. 

3.4.5 Variables, Functions and Numbers 

A variable name consists of one or two alphanumeric characters, of which the first must be 
a letter. The second character may be A-Z, 0-9, Additional characters are Ignored. 

Function names are easily distinguished from variable names because they start with the 
letter F. A number always begins with a digit 0-9. 

3.4.6 Error Diagnostics 

Programming errors are Indicated by an error diagnostic. The printout Is In the form 
9XX.XX @ GG.SS. The first number Is a specific error number derived from the core address of the 
error call . The GG.SS Is the number of the line. If any, of the text which contains the error. 

The error diagnostic printouts are Intended to be efficient yet Informative and explicit. 

Used In conjunction with the trace feature, these will pinpoint errors precisely. (See Appendix B). 
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Example: 

*DO 2.35? 

SET A=5/C + 728.72 (Divide by zero, C=0) 

* 

3.4.7 ArithmeHc Priorities 

t 

* 

/ 

+- 

Operations of equal priority are executed from left to right (e.g., T 2t3t2=64 not 512). 

3.4.8 ASCII data 

ASCII input of A-Z has the values of 1-26 per digit per letter respectively, thus, 

*ASK A; TYPE A 
:Z=26.00 
*A A; T A 
:AZ =36.00 

This is also true for internal numerical constants like ONO, OYES, etc. 

(See the IF command for an example of this feature.) 

The technique may also be used to create a kind of associative memory: 

*ASK A; ASK GRADE (A) J 

:DICK : 95 

*ASK A;TYPE GR(A); 

:DICK =95 

3.4.9 Indirect Commands 

If a Teletype line is prefixed by a line number, that line is not executed immediately, but 
is stored for later execution. Line numbers must be in the range 1 .01 to 31 .99. The numbers 0.0, 

1 .00, 2.00, 3, etc., are illegal line numbers and are used to indicate the entire group. The number 
to the left of the point is called the group number; the number to the right is called the step number. 
Execution of indirect commands is begun by an immediate GOTO of DO command. The GOTO com- 
mand causes FOCAL to start the program by executing the command at a specified line number (e.g., 
GOTO 1 .3). The GO command causes FOCAL to go to the lowest numbered line to begin executing 
the program and continues until it runs out of program text. FOCAL can automatically cross group 
boundaries. 
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3.5 


SAVING FOCAL PROGRAMS 


3.5.1 Paper Tape 

To save a FOCAL symbolic text, type WRITE ALL, turn on the punch, type @ marks for 
leader “trailer, and type carriage return. When all of the program has been typed out, type additional 
@ marks for more leader-trailer, turn off the punch, and continue your conversation with the computer. 
(To save a FOCAL binary program, see Appendix C.l .) 


3.5.2 LINC Tape (see Section 2.14.1; TCOl via 8-LIBRARY SYSTEM; PDP-12) 
On LINC tape, load FOCAL program as follows: 

a. Load FOCAL binary tape, execute Initial dialog, and call UPDATE. 

NAME: START 

SA (OCTAL): 200 

MEM LOCATIONS: <4600, 7577 >; 

b. Call UPDATE again. 

NAME: FOCAL 

SA (OCTAL): (none) 

MEM LOCATIONS: < 0, 3377 > ; 

c. Calling Sequence: 

FOCAL 

START 


d. Write the desired FOCAL routine. 

e. Give an "L" command. Four octal numbers will be printed, and control will return to 
the Library System. 

UPDATE 

NAME: (u$er*$ choice) 

SA (OCTAL): (none) 

MEM LOCATIONS: <0 ><(A), (B) >; 

Where "(A)" and "(B)" mean the first and second octal numbers. 

f . To call a program: 

FOCAL 
(user*s choice) 

START 


3.5.3 Disk Monitor System (see Section 2.14.1) 
a. Build the Disk System. 
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b. Load FOCAL info field zero. 

(If the computer has 8K, use the binary loader in field I .) 

Alternate procedure: Use PIP to place the binary on disk. Then, use LOAD on the 
disk file. (This procedure is faster for a teletype, but uses more disk space.) 

c. Load Address 200, START, and complete the initial dialogue. 

d. Load Address 7600 and START. 

e. Initialize the disk as follows: 

.SAVE START !4600-7577;200 
.SAVE FOCAL 10-3377; 

f. Run FOCAL. 

FOCAL 

START 

(Create Program) 

g. Save program; return to disk Monitor by giving an L command. 

.SAVE (name);0,(A) - (B) [note saving page zero] 

h. Run a program (after doing either step f or g). 

.focal; 

.CALL (name); 

.START ; [linefeed will not occur] 

*(FOCAL ready) 

i Steps g and h may be repeated . 


3.5.4 Disk System and Extended Functions 

To cope with configurations involving deletion of extended functions, proceed as follows 

a. Load FOCAL and start at 7600; 

.SAVE START !4600-7577;200 

.SAVE I NIT :0, 3200-4577; [note saving page zero] 

.CALL INIT 
.START 

[Dialogue, answer YES] 

*L 

.SAVE FOCAL 10-3377; 

b. To reinitialize a system without some extended functions, type 

.FOCAL 
.CALL INIT 
.START 

[Dialogue, answer NO, YES, i.e., keep sine and cosine] 

*L 

.SAVE STNYI5200-7577;200 
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c. To create a system without any extended functions, type 

.FOCAL 
• CALL INIT 
.START 

[Dialogue, answer NO, NO] 

*L 

.SAVE STNN!5400-7577;200 

d. Be sure to use the correct START command with each user program. 

( 1 ) 

[to use no exponential function version] 

.FOCAL 
.CALL NEXP 
.STNY 


(2) or 

[to use no cosine function version] 

.FOCAL 
.CALL NCOS 
.STNN 


3.5.5 Disk System and Extended Memory (see section 2.14.1) 

Follow these operations to set up an 8K version of FOCAL on the disk: 

[Build Disk System] 

[Load FOCAL] 

[Start at 200] 

[Dialogue, answer questions.] 


*L ; 

0100 (A) 

0121 (B) 

3217 (C) 

XXXX (D) 


.SAVEST8K! (D) -7577;200 
.SAVEFCL8! 0 - 3177; 

.SAVE NUL8: 10100; 10113 

The SAVE command for a finished 8K FOCAL program is 
.SAVE CODE: 1(A) - 1(B); 10113 

where (A) and (B) are the first and second four digit numbers typed out by the L-command. These are 
the field one bounds of the program text. The value of (D) will depend on the functions retained. 
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The variables, however, are in field zero. To save a set of data, type: 

.SAVE DAT8:0;3200-(C); [note saving page zero, field zero] 
To set up a null program with a particular data set, type: 

.FCL8 

• CALL DAT8 
.CALL NUL8 
.ST8K 


3.5.6 For 4-user FOCAL SAVE command, see Section 4.6.6. 


3.5.7 EAE Patch for FOCAL, 1969 


7203 

3206 

DCA 

.+3 

7204 

1256 

TAD 

MP2 

7205 

7425 

MQL 

MUY 

7206 

0 

0 


7207 

3253 

DCA 

MP5 

7210 

7501 

MQA 


7211 

3255 

DCA 

MP3 

7212 

5227 

SNP 

.+15 
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CHAPTER 4 

PROGRAM SPECIFICATIONS 


4.1 MACHINE REQUIREMENTS 

The mmimum hardware configuraHon necessary to run this program is a 4K PDP-8 family 
computer with ASR-33. 

Scope, an additional 4K memory, and high-speed reader and punch are available options. 
Additional PT08s are added for extra users. 


4.2 DESIGN SPECIFICATIONS 

4.2.1 Design Goals 

FOCAL is a conversational language and operating system for a basic PDP-8. It is designed 
to facilitate on-line editing and execution of symbolic programs. (For BNF description, see Appendix 

F.) 


4.2.2 Input 

The keyboard, low-speed reader, or high-speed reader may be used for input of program 
text and for commands to be executed immediately. Keyboard input is double buffered. 

4.2.2. 1 Input Format - See description of the commands in Chapter 2 for format information. 


4. 2. 2. 2 Character Set - Input and output characters are in ASCII teletype code. Interpretive opera- 
tions are also done internally in expanded ASCII. The text buffer is packed two characters to a word 
as follows. 


number = represented as: prints as 
300 = not packed = ignored: @ 

301 - 336 =01 - 36: A-Z 

337 = not packed - edit control, kill line: ^ . 

240 - 276 =40 - 76: symbols 
277 =37: ?. 

340 - 376 = 7740 - 7776 (extended codes): non-printing 

377 = not packed - edit control, delete preceding character; if a character 
is deleted, \ (backslash) is typed. 

200 = not packed - ignored: leader-trailer 
210 - 237 =7701 - 7737: control characters 
000 = not packed - ignored: blank tape. 
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4.2.3 Output 


4.2.3. 1 Output Format - See the TYPE and WRITE statements for format of output. The output 
character set Is the same as that for Input. 

4. 2. 3. 2 The Input/Output and Interrupt Processor - The purpose of the Interrupt handler and the l/O 
buffers is to permit input and output to proceed asynchronously with calculations. This allows an 
optimal use of the computer time. When the interrupt handler finds that the teletype output flag has 
been raised, it clears that flag and looks to see whether there are any additional characters in the 
teletype output buffer to be printed. If there are, it takes the next character from the buffer, prints 
it, clears that location in the buffer, and moves the pointers. Separate pointers are maintained for 
both the interrupt processor and for the program output subroutine (XOUTL). If the interrupt handler 
finds that there are no more characters to be output on the Teletype, it will clear the teletype in- 
progress -switch (TELSW). If the interrupt handler does output another character, it sets TELSW to a 
nonzero value. 

When the program desires to place characters in the buffer for the interrupt processor to 
print, it makes a call to XOUTL. This routine first checks to see if TELSW has been set. If TELSW is 
zero, no further interrupts are expected by the interrupt processor, and the output routine immediately 
types the character itself and sets TELSW to a nonzero value. Otherwise, if the interrupt processor is 
in motion, then the output routine places the character into the buffer and increments the pointer. If 
there is no room in the buffer for additional characters, the low-speed output routine waits until room 
is available. The keyboard input processors are similar in organization to the output routines except 
that no in-progress-switch is needed and the input is only double buffered. 

Another advantage of the interrupt system is that it enables the user to stop program loops 
from the keyboard by typing Control C. The recovery routine will then reset the I/O pointers, type 
out the message code ?01 .00, and return to command mode. Manual restart via the console switches 
also goes to the recovery routine, resets the pointers, and types out message code 900.00. In fact, 
all error diagnostics go to the recovery routine. Error printing is withheld until prior printing is com- 
plete. Otherwise, on occasion, a full buffer could be dumped and the error message could be printed 
as many as 16 characters before it should have otherwise occurred. This would be misleading when 
using the trace mode to discover specific errors within a character string. 

The recovery routine may also be called by the interrupt processor if it discovers that there 
is no more room in the keyboard buffer. For example, this could occur if the user continues to type on 
the keyboard while the program is making computations. Physical evidence of the error is indicated by 
failure of the computer to echo characters as the user types. 
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NOTE 


This error could also occur when reading a paper fape 
program into the text buffer via the low-speed reader. 

If the output hardware is slower than the input hard- 
ware, more text is read in than is being read out of the 
buffer, resulting in failure of the program to empty the 
reader buffer as quickly as it is being filled up, since 
the program synchronizes the reading of the characters 
with sending them into the buffers. In other words, the 
program synchronizes its side of the I/O buffers, but the 
interrupt side of the I/O buffers proceeds at a rate deter- 
mined by the hardware. To prevent this type of error with 
long input tapes, which were prepared off-line, carriage 
returns may be followed by some blank tape which is ig- 
nored by the input routines, thereby giving the output 
routine time to catch up. This is essentially a hardware 
problem since the program is unable to stop the low-speed 
reader. 


4.2.4 Organization 

4.2.4. 1 Arithmetic Package - The arithmetic is done in the floating point system. The three-word 
floating point package allows six digits of accuracy plus the extended functions. The program will 
eventually use four words as an option. The exponential range is approximately ten to the six hundredth. 
Internal accuracy during computations is 6.924 decimal digits. 

The four-word floating point system creates ten digits of accuracy, including roundoff. It 
does, however, require more storage for variables and for push-down list data. 

4. 2.4. 2 Storage - The major components of the program occupy locations 1-3200. The remaining 
storage 3200 - 4600 is used for text storage, variable storage, and push-down storage, in that order. 

The text occupies approximately two characters per register. The variables occupy either five or six 
locations per variable depending on whether the three- or four-word option is utilized. 

Remaining storage is allocated to the push-down list. Overflow will occur only when one 
of these lists exceeds the remaining storage. This could happen in the case of complex programs which 
have multiple levels or recursive subroutine calls. The push-down list contains three kinds of data. 

One of these is a single location for push-jump and pop-jump operations. The content of the accumu- 
lator is also pushed into the same list in a single register. The third type of push-down storage is 
floating point storage (see Appendix D). 
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This important storage allocation scheme permits flexibility in the trade off of text size, 
number of variables, and complexity of the program, rather than restricting the user to a fixed number 
of statements or characters, or to a fixed number of subroutine calls, or to a limited number of variables. 

4.3 HARDWARE ERRORS 

The 8/S will halt at location EXIT +6 If a parity error occurs. 

4.4 INTERNAL ENVIRONMENT 

4.4.1 Adding a User’s FunctIon;FNEW(Z) (c.f.. Section 5,2) 

The FOCAL system was designed to be easily Interfaced for new hardware such as LAB-8, 

multiplexed ADCs real-time clocks, or to software such as a nonlinear function. 

The Information given below, the symbol table, the various lists, and a core layout are In- 
tended to be sufficient for all required modifications and patches. This symbolic approach ensures 
greater flexibility and compatibility with DEC modifications to FOCAL, other user’s routines, and 
assembly via PAL III on a PDP-8. 

Example: Suppose we had a scope routine to display characters at a given point on a scope. 
We will call this routine from FOCAL as function by FNEW (X, Y, SHOW). Here X and Y are expres- 
sions to be used as display coordinates for the start of SHOW. 

a. First, patch the function branch table. 

*FNTABF + 15 
XFNEW 

b. When control arrives at XFNEW, the X has already been evaluated. 

XFNEW, JMS I INTEGER /make 12 bit integer 

in AC 

DXL /set X - coor. 

CLA 

c. Now, test for the possibility of another argument. 

TAD CHAR 

TAD MCOMMA 

SZA CLA 

JMP I EFUN3I /no more 

d. Move past the separating comma. 

GETC 

SPNOR 
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Evaluate the second argument. 

PUSHJ 

/this F NEW is 

JMS 

EVAL /not recursive 

I INTEGER 

DYS;CLA 

/set Y and intensify 

SPNOR 

TAD 

CHAR 

TAD 

MCOMMA 

SZA 

CLA 

JMP 

I EFUN3I 

Now, pick up the single letters for display until the end of the function is reached 

DC HR, GETC 

TAD 

CHAR 

TAD 

MRPAR 

SNA 

CLA 

JMP 

I EFUN3I 

Ghar. display routine called here; (for Tektronics Y002, it is simply PRINTG) 

JMP 

DCHR 


g. Definitions from the symbol table are available in Appendix E. 


Summary: 

a. User defined functions must leave their value, if any, in FLAG and return by a 
JMP I EFUN31. 

b. The contents of FLAG is converted to an integer in FLAG and in the AG by a 
JMS I INTEGER. 

c. The floating point arithmetic interpreter is entered by JMS 1 7. 

(FOGAL uses its own version of the floating point package.) 

d. The address of the user's function is placed by him in the FNTABF list. 

e. Location BOTTOM contains the address of the last location to be used for storage. If 
BOTTOM is made to contain 4277, for example, then the user has from 4300 to 4577 for 
storage of the function processor. The user should achieve his function implementations 
using the information given here and in the symbol table without using the actual listing so 
that changes made by different users may be compatible and so that they may also be 
relocated easily should any changes be made by DEG. (see Section 4.5.1 for Gore 
Utilization List) 

f . The argument following the function name is evaluated and left in FLAG before control 
is transferred to the particular function handler. Since evaluation is terminated by either 

a comma (,) or a right parenthesis, a special function could have more than one argument. 

Only in the case of multiple arguments does a user need to worry about saving his 
working machine language storage for a possible recursive use of his function. The contents 
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of fhe AC are saved by PUSHA and restored by POPA for this purpose. If there is another 
argument, ft may be evaluated by PUSHJ; EVAL. Doing a PUSHJ; EVAL-1 is equivalent to 

GETC;PUSHJ;EVAL. 

4.4.2 Internal Subroutine Conventions 


4.4.2. 1 Calling Sequences - The (AC)=0 unless it contains information for the subroutines. Upon 
returns (AC)=0 unless it contains data. 

There are six types of routines and subroutines used in the implementation of this program: 

a. Normal subroutines called by an effective 

JMS SUBRl 

which contain zero at their entry point 

SUBRl, 0 

and a return by a 

JMP I SUBRl 

b. New instructions called by 

PRNTLN /(to print a line number) 

and usually defined by 

PRNTLN = JMS I. 

XPRNT 

where XPRNT is the entry point for a normal subroutine. These new instructions may have 
multiple returns/multiple arguments: 

SORTJ /call; 

LIST6-1 /data li st minus one; 

INLIST-LIST 6 /increment to branch table 

/return if CHAR is not in LIST6 

These new instruction subroutines often have implied arguments, e.g., GETC, READC, 
PACKC, TESTC, and SORTC all use the variable CHAR as their argument. The new 
instructions SORTJ and PRINTC use CHAR only if the AC is zero. If the AC is nonzero, 
then that value is used. Still others use only the AC for their argument: 

RTL6, TSTLPR, PUSHA, and TSTGRP, (see Appendix G). 

c. Recursive routines called by 

PUSHJ /call 

EVAL /address 

' /return 

where the address contains the first instruction of the routine. The return address is kept in 
the push-down list, and exit is made by use of 

POPJ /exit subroutine. 
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Such routines may call each other or themselves m any sequence and/or recursively by 
saving data on the push-down list. Others are EVAL, PROCESS, PROC, and GETVAR. 

d. Command processor routines to handle specific command formats are called by 

SORTJ /go to command 

COMLST-1 
COMGO-COMLST 

ERROR 3 /illegal command 

The individual command routines use only new instructions and recursive routines. They may 
exit in one of three possible ways: 

(1) POPJ - if C .R. is encountered or 

(2) transfer to another command routine or 

(3) transfer to START 

e. Floating point groups of interpretive instructions similar to the following format: 


PINT 

FGET 
FMPY I 

FLARG 

PTl 

/enter floating 

interpreter (i.e., JAS 17) 

EPUT 

FXIT 

FLARG 

/leave floating 

interpreter 


f . Main processor modules to handle text input and keyboard commands. This routine 

could be "locked-out" by an instructor to protect and execute a stored or immediate 
command program repeatedly. 

IBAR, INPUT X 

Similarly, selected commands are easily deleted by the instructor by placing zero in the 
appropriate locations in COMLST. 

Line number input and explicit replacements are "short circuited" by 

GONE +11, error 3 

4. 4. 2. 2 Subroutine Organization - Figure 4-1 illustrates the internal use of various subroutines, 
(c.f.. Flowcharts in Appendix G). 

4.4.3 Character Sorting 

If a program must contend with a number of different characters (or 1 1-bit items) each of 
which can initiate different responses, simply look up the address of the action that corresponds to a 
given symbol or bit pattern. If the symbols do not form a continuum, the programmer must find the 
most efficient method for determining the corresponding address. 

The method used in FOCAL is the table sort and branch. This method uses a subroutine to 
match up an input character with one member of a list of characters. The call to the subroutine is 
followed by 
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a. the address minus one of the list and 

b. the difference between that list and a second list. The latter list contains the corre- 
sponding addresses. Thus, if a match is found in the first list, the difference is added to the address of 
that match to compute the address in the second list which contains the name of the action to be 
performed . 

c. The next instruction to be executed if a match is not found. 

In addition to being simple and concise, although more time consuming than other methods, 
this technique has another advantage that is especially useful in a PDP-8: the tables may be placed 
at page boundaries to take up the slack that often occurs at the end of a page. This results in a more 
efficient use of available core storage. 



Figure 4-1 


4.4.4 Language 

The program is written in PAL III with floating point commands, as well as program-defined 
commands, implemented as subroutine calls, (see Appendix G) The program must be assembled using 
PAL10. 
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4.5 


NOTES 


4.5.1 Core UHlization 


NAMES 

PLACE 

SEGMENT 


0-15, 17-166 

FOCAL (4K) 


167-175 

8K 


176-2572 

FOCAL (4K) 


2573-2577 

8K 


2600-2724 

(Interrupt Handler) 


2725-3117 

FOCAL (4K) 

lOBUF: 

3120 

(I/O Buffer) 

COMEIN: 

3140 

(Command Buffer) 

FRST: 

3206 

(Text Buffer) 

BEGIN: 

4420-4577 

(Initialization) 


4430-4577 

CLIN 

FEXP: 

4620-4776 

(Extended Functions) 

ARTN: 

5000-5166 

[11 free] 

FCOS: 

5200-5345 

[32 free] 

TGO: 

5400-5577 

[ Ofree] 

DECONV: 

5600-5773 

[ 4 free] 

FLOUTP: 

6000-6157 

(Output Conversion) 

THISD: 

6160-6176 

8K 

FLINTP: 

6200-6317 

(Input Conversion) 

HREAD: 

6320-6377 

(High Speed Reader) 

FPNT: 

6400-7177 

(floating interpreter) 

MP4: 

7200-7377 

[none free] 

XSQRT: 

7400-7502 

[FSQT( ) and format buffer] 

LIBRARY: 

7503-7556 

(Single user L command) 

XRTD: 

7557-7576 

8K 


Storage of text is 3200-4577 

14 functions 

3200-5177 

1 1 functions 

3200-5377 

9 functions 


4.5.2 Extended Functions 

Extended Functions may be reinitialized by loading In the second part of main program tape. 
Functions are normally deleted by answering the questions asked when FOCAL Is Initiated. 
However, they may also be erased by changing location 0035 to 5377, and locations 401 through 
0405 to 2725. Retaining the extended functions allows approximately 1200 characters of text or 170 
variables (or any combination In the ratio of 7 characters to one variable). Deleting the extended 
functions allows approximately 1800 characters or 250 variables. 
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4.5.3 


Error Printouts 


Errors ?01.00 

900.00 
and 911.35 

Because these errors are time dependent, they may be followed by nonexistent or false line number. 

4.5.4 No Interrupts 

To read data tapes without running the risk of Keyboard-Input-Buffer overflow (911 .35), it 
is necessary to remove the interrupt. This action means that Control-C will not work. 

To run FOCAL without interrupts, change: 


Loc/From 

To 

63/2676 

1353 

64/2666 

2413 

2732/6001 

5336 

2762/6046 

7000 


The high-speed punch will now run in parallel with the low-speed punch! 

To run the high speed punch at top speed change; 

1356/6041 6021 

4.5.5 Operating HS Reader Without Interrupts 

To run the high-speed reader without interrupts, make the above patches plus two more: 

6324/1037 6011 

6325/7700 7410 

4.5.6 Non-Typing of Program Tapes During Loading 

The "echo" feature for the ASR-33 may be suppressed by changing location 2163 to 7000 
(from 4551). This will cause only asterisks to be typed as the tape is read. There will not be line 
feeds or carriage returns, (c.f. , 4. 7. 3. 4 for multi-user system) 

Any output commands will be typed out in the usual manner, as will diagnostics, answers, 
etc. Entries from the keyboard will not be typed. 

4.5.7 Explanation of NAGSW (Not All or Group Switch) 

Since LINENO may be modified, a record is needed of whether a specific line number was 
given by XX. YY (where XX and YY are nonzero) or whether a group was indicated by XX or XX: or 
XX. 00 or whether "ALL" text was indicated by either zero, less than one, or a non-numeric argument: 
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For one line 
For a group 
For all fext 
Error 

PDP-8 code for testing NAGSW: 
skip if 


Or 

One 

All 

Group 

ONE 

SMA 

— 

SMA SZA 

ALL 

— 

SPA SNA 

SNA 

GROUP 

SMA SZA 

SPA SZA 

SZA 


NAGSW = 

4000 
0000 
0001 

4001 


4.5.8 Data Inaccuracies 

8 27 

The logical conclusion from the inequality 10 < 2 is that the user can represent 8-digit 

decimal floating-point numbers accurately by 27-bit floating-point numbers. However, 28 significant 

bits are needed to represent some 8-digit numbers accurately. In general, we can show that if 
D a-1 

lO*^ < 2^ , then q significant bits are always enough for p-digit decimal accuracy. Finally, we can 

define a compact 27-bit floating-point representation that will give 28 significant bits, for numbers of 
practical importance.^ In FOCAL, 23 bits are used giving 6.9 digit accuracy. 

4.5.9 Eliminating = and : in l/O Formats 

Leading equal signs and colons in l/O formats are omitted by making the following patch: 

Loc/From To 

1216/4551 7600 /: 

6002/4551 7600 A 


4.5. 10 Estimating the Length of User's Program 

FOCAL requires five words for each identifier stored in the symbol table and one word for 
each two characters of stored program. This may be calculated by 

c 

5s + 2 . 1.01= length of user's program 
where s = Number of identifiers defined 

c = Number of characters in indirect program 

If the total program area or symbol table area becomes too large, FOCAL types an error message. 

^Goldberg, B. "8-Digit Accuracy", 

Communications of the ACM 
Vol . 10, No. 2, February, 1967 
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FOCAL occupies core locations l-3300g and 4600g 7576 ^. This leaves approximately 
ZOO^Q locations for the user's program (indirect program, identifiers, and push-down list). The ex- 
tended functions occupy locations 4600-5377, If the user decides not to retain the extended functions 
at load-time, there will be space left for approximately 1100^^ characters for the user's program. 

The L-command may be used to indicate how much core is available for the user. 

4.6 FOCAL SYSTEMS 

FOCAL systems are designed to take advantage of as many PDP-8 configurations as possible. 
With this in mind, the system source language is divided into segments which, when loaded together, 
fit the needs of a user and his particular configuration. Thus, when a user changes his configuration 
or requirements, he does not need to secure an entirely new FOCAL tape but only to load a new seg- 
ment corresponding to the change in his configuration . The scheme used also has the advantage of 
simple maintenance, since changes are made to one source file for all possible systems and in some 
cases re-assembly of other segments is not needed. 

Two source segments create a FOCAL system for a 4K PDP-8. Others are used to create a 
FOCAL system with (1) ten digit arithmetic, (2) 8K memory, and (3) circular and linear graphics. 

The segments of the FOCAL system and their functions are listed in Table 4-1 . The ASCII 
source segments FOCAL. ASC and FLOAT. ASC must be assembled with all configurations and the 
resulting binary segment, FOCAL.BIN, when loaded makes a one user FOCAL system for a 4K PDP-8. 

The segment INIT.ASC is assembled alone, but when INIT.BIN is loaded with FOCAL.BIN 
into field zero it gives you the initial dialog. If the extended functions are to be retained, it is not 
necessary to load I NIT at all . All corrections for machine type will be made anyway. After FOCAL 
is started and/or the dialog is completed the user may proceed to load other binary segments. 

If a user has an 8K PDP-8 and wants to create a large program with extended precision 
arithmetic, he need only load FOCAL.BIN, start, and then load 4WORD.BIN, and 8K.BIN as 
indicated in Table 4-2. If he wants to share his PDP-8 with three other people, he just loads FOCAL. 
BIN and QUAD, BIN into field one and start. 

Intra-references between segments is handled by small multiple assemblies, rather than a 
large assembly with conditionals for each possible system. For example, to obtain a binary copy of 
the segment QUAD.BIN, use PALIO to assemble, QUAD. ASC, FOCAL. ASC, FLOAT. ASC. This 
assembly produces only the listing and binary files for QUAD which end with the PSEUDO-op's 
"XLIST" and "NOPUNCH". Tables 4-2 and 4-3 give the allowable combinations of the binary 
segments to produce legal configurations of the FOCAL system. 
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Table 4-1 

FOCAL System Source Segments 


ASCII Segment Name 

Function 

Description 

FOCAL* 

The interpreter & TTY l/O driver. 


FLOAT* 

Modified Floating Point Package. 


4WORD 

Extended precision overlay to FLOAT (give 10 digits). 

(4.6.5) 

8K 

Allows one user to take advantage of an 8K PDP-8. 

(4.6.4) 

QUAD 

Allows multiple users (up to 4) to use FOCAL or 

8K PDP-8. 

(4.6.6) 

LI BRA 

Allows multiple users (up to 7) to run and save 

FOCAL programs on an 8K PDP-8 with disk. 

(2.14.2) 

CLIN 

The user may have a scope to interact with FOCAL. 

(5.8) 

PENT 

A variation of QUAD allowing five (5) users. 


I NIT 

The symbolic source for the initial dialog program. 



*These two segments must be assembled and loaded together for all configurations. They are 
separated for editing convenience. 

^Not yet implemented. 


Table 4-2 

Allowable FOCAL Systems 


1 - Must be loaded into field one 

0 - Must be loaded into field zero 

Y - Command may be used if disk system is built 

N - Command is illegal 
* - Command different 

Binary Segment 

Allowed Combinations & 
Subsets are indicated by 
entries in vertical columns 

Minimum Hardware 
Required 

FOCAL 

0 0 0 0 1 111 

4K 

I NIT (optional) 

0 0 0 0 


4WORD 

0 0 11 

4K 

8K 

0 0 

8K 

QUAD or PENT (non-8/S) 

0 0 0 0 

8K/PT08S 

LIBRA (non -8/S) 

0 0 

8K/PT08s/DF32 

CLIN (optional) 

0 1 1 

Graphics Terminal 

LIBRARY COMMAND 

YYYYNN* * 

DF32 

(for disk monitor) 



FOCAL is always loaded first in the proper field. 
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Table 4-3 

Variations for FOCAL Systems 


Any combination of these three sets (2*2*4=16), 

a. 8K overlay b. Disk Monitor c. No Dialogue 

4K No Disk No ext. functions 

SINe, cosine only 
All ext. functions 

or QUAD four-user system or PENT five-user system (PENT is obtained by a 
modified assembly of QUAD; see listing) may be used with 

CLIN graphics (4) 

4WORD overlay 

Neither 

Both 

These are formed from only six sections of binary tapes. 

The CLIN graphics function can be used for numerical control. 

4K FOCAL can be run on the following DEC computers: 5, 8, 8/S, 8/1, 8/L, 
LINC-8, LAB-8, TSS-8, PDP-12. 

a. Load FOCAL & INIT 

b. do Initial dialogue 

c. load any orall of 4WORD, 8K, CLIN. 

d . restart and use 


4.6.1 FOCAL Systems Assembly 

a . Systems programs 

* tc 

.RUN T PALIO 

*FOCAL . BIN , FOCAL .LST -FOCAL . ZZL , FLOAT .ZZL 

*Q UAD . BIN ,Q U AD . LST -Q UAD . ZZL , FOCAL . ZZL , FLOAT . ZZL 

b. Initial dialogue 

* tc 

.RUN T PALIO 

*INIT. BIN, INIT. LST -INIT. ZZL 

* 

c. Overlay routines 

.R PALIO 

*4WORD.BIN,4WORD. LST -4WORD. ZZL, FOCAL. ZZL, FLOAT. ZZL 
*8K . BI N , 8K . LST -8K . ZZL , FOCAL . ZZL , FLOAT . ZZL 

*CLIN. BIN, CLIN. LST -CLIN. ZZL, FOCAL. ZZL, FLOAT. ZZL 

* 
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4.6.2 


FOCAL Binary Paper Tapes 


.AS DSK D 
DSK ASSIGNED 

.AS PTP 
PTP ASSIGNED 

.R PIP 

*PTP:yiD:QUAD.BIN 

*PTP:VlD:4WORD. BIN, 8K. BIN, CLIN. BIN 

*PTP : -/ID : FOCAL . BI N , I NIT . BI N 

tC 


4.6.3 FOCAL Listings 

*LPT:-D:QUAD.LST,4WORD.LST,8K.LST,CLIN.LST,INIT.LST, FOCAL. LST 

*TTY:VL DTAa: 

58: FREE BLOCKS LEFT 
FOCAL .ZZL 

FLOAT .ZZL 

QUAD .ZZL 

4WORD .ZZL 

8K .ZZL 

CLIN .ZZL 

INIT .ZZL 

PAL 10 .SAV 

JR36 
JR46 


4.7 FOCAL SEGMENTS 


4.7.1 8K Single User Overlay - 8K 

To increase the size of program, the 8K overlay uses the upper 4K for storage of the user's 
source text. The maximum number of variables does not change as they are still stored in the lower 8K. 
Load the overlay after doing the initial dialogue with the 4K version. 


4.7.2 Extended Precision Overlay - 4Word 

This overlay provides FOCAL with 10-digit accuracy when the 10th digit goes to enable. 
The overlay increases the number of words needed to store a number from three words to four words. 
The number of variables that may be stored is decreased accordingly. 

Load the overlay after doing the initial dialogue with the 4K version. 
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4.7.2. 1 Double Precision MulKply in Four-Word FOCAL 


To multiply two numbers, the product of which is greater than ten digits and yet retain the 
least significant figures, use a double precision operation. 

For example, to multiply: 

M = 20243974 

by 

N = 69732824 

let MO = the 1st 4 digits of M and let Ml = the 2nd 4 digits of M. Similarly, NO and N1 are the left 
and right halves of N. 

Note the correction of an input error in the high order part of N . 

*W 

C-4WORD@l/69 

14.10 ASK !,M0,M1,"*"N0,N1,! 

14.20 SETA=M0*N0 
14.30 SET B=N0*M1 + M0*N1 
14.40 SETC=M1*N1 
14.50 SETZ=FITR(C*lE-4) 

14.60 SETC=C-Z*1E4 
14.70 SET B=B+Z 
14.80 SETZ=FITR(B*lE-4) 

14.90 SETB=B-Z*1E4 

14.99 TYPE l%8,A+Z,%4,B,C,! 

*GO 

:2024 :3974 * :6928*6973 :2824 
= 141 16694= 7600= 2576 


4.7.3 Four User Overlay - QUAD 

QUAD allows an 8K PDP-8/1, -8/L with up to four teletypes to time-share FOCAL. In 
effect, each user has the equivalent of a 4K PDP-8 or PDP-12 with FOCAL. The QUAD overlay is 
located in the lower 4K, and the FOCAL interpreter is located in the upper 4K. Users are traded for 
one of three other users in the lower 4K. Swapping of users is based upon l/O waits and checkpoints 
in the FOCAL interpreter. 

4.7.3. 1 Four User Loading and Operating Procedure 

a. Load 1st binary part into field one. (FOCAL.BIN) 

b. Load 2nd binary part into field one . (QUAD.BIN) 
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c • Load address 
7600 

and START 

. SAVE F4U B ! 0-2 1 77 , 3000 , 3600 , 5400; 200 
.SAVE F4U A 10-13220, 14600-17577; 

(Any errors made here may require reloading field zero.) 

d. (Calling Sequence) 

.F4UA 

.F4UB 

(If any problem occurs hit stop, record the PC and restart at 200 or reload.) 

4. 7. 3. 2 Swapping - At certain points in the FOCAL program it is a pure procedure. If swapping 
occurs at these times, then only IK of impure data needs to be saved instead of 4K. This factor of 
four considerably improves system performance. Such a point is called a checkpoint. 

Each time an operating program reaches a checkpoint the executive routine checks to see 
whether another user should be swapped in at that time. 

This check is also made if the operating program goes into a state of waiting for input-output, 
except for output during use of trace. 

4. 7. 3. 3 Workload and Timing 

a. Swapping is done on a demand (l/O wait) and a cooperative (checkpoint) basis. 
Therefore, no clock Is needed. Not having a clock reduces system overhead by about ten percent. 

b. Fully asynchronous l/O is backed up by large (over 16 characters) and uniform (easy to 
process) character buffers. Serial to parallel conversion of the bit stream is done in external hardware 
by PT08 line controllers. This reduces system load by 18 to 30 percent. 

c. If each of eight user programs takes less than 100-17 msec to generate one 8-digit 
output string, then the system is barely output bound and no del cjy will be observed in response times. 
The 17 msec is average access time to the disk, and one TTY character takes 100 msec to be typed. 

4. 7. 3. 4 Special Controls - A control -R character (TAPE) suppresses echo of input tapes except for 
the line-feed. A control-T (NOT -TAPE) or Control-C restores the echo of input characters. 

It is a good practice to punch a Control-R at the beginning of all off-line tapes. An 
alternative is simply to type Control-R manually before setting the low speed reader to RUN. 

4. 7. 3. 5 Dialogue - There is no initial dialogue with QUAD. 
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4.7.4 Graphics for Circles and Lines - CLIN 


/€LIV - 3HAP"IICs overlay FOr FOCAL, 22K PAL10 V133 14-MAR«69 16:01 

/CLIN , GRAPHICS OVERLAY FOR FOCAL, 22K 


/finite difference equation of a circle - FOR focal 

/ 16,2 s p = X-X0Ss Q^Y-YOis R = f^SOT(Q»2 + pt 2 > 

/16,3 S 2sFNEW{6.3*R*C,P,O,X0. Y0.S/R) 

/16,4 S X0=X;S Y0=Y 

/lIrEAR difference EqUATIqn qF a lI^E 

/l',l 0 16,2*5 2 =FNEr(R,P/R,O/R,X0,Y0,0) JO 16.4 

6057 0X5*6057 

6053 DxL=6053 

6067 DYS=6067 



0035 

•gOTTOM 




3035 

4437 


FC I ^ 

1-1 



3407 

»fntabf 




3437 

4440 


FCIN 



4440 

* 440^*4 

0 



4A4g, 

4453 

fcin, 

JMS 

I integer 


4441 

7040 


CMA 



4442 

3342 


OCA 

R 

/SAVE THE POINT COUNT 

4443 

1340 


TAD 

XXP 


4444 

3010 


OCA 

AXIN 

/start data pointers 

4445 

1117 


tad 

M5 

/FOR 5 MORE ITEMS 

4446 

3316 


OCA 

CT 


4447 

4537 

G£ T A , 

PUSHJ 

/compute Each arg, 

4450 

1612 



EVAL-1 


4451 

1044 


TAD 

EXP 

/FOUR FIXED point RESULTS 

4452 

1341 


TAD 

LP 


4453 

3044 


DCA 

EXP 


4454 

4453 


JMS 

I integer 


4455 

7230 


CLA 



4456 

1035 


TAD 

P13 

/SAVE UNN0RMALI2ED FORM 

4457 

3410 


OCA 

I AXIN 


4460 

1045 


TAD 

HORD 


4461 

3410 


OCA 

I AXIN 


4462 

1046 


TAD 

LORD 


4463 

3410 


DCA 

I AXIN 


4464 

2316 


1S2 

CT 

/test for end of data 

44 65 

5247 


JMP 

GETA 


4466 

1046 


TAO 

LORO 

/test For circle or line 

4467 

7640 


S2A 

CLA 


4470 

5343 


JMP 

XFCIR 
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/ULiM - Graphics ove-Rlay for focal. pal 10 vi33 lA-MAR-eR i6s0i page 2 

4471 7iJ0 XFLIN, 

447 § 

4474 3331 

4475 70J4 

4476 1330 

4477 13^2 

45 10 6053 

45'U 3330 

4532 7l-'l0 

4533 1334 

4534 1326 

45'i5 3334 

4536 73if.'4 

4527 1333 

4510 1325 

4511 6067 

4512 3333 

4513 2342 

4514 5271 

4515 5535 

///// 


/TO DISPLAY A POINT X,Y! SET ?=FOlS(X,Y) 

/TO DRAkJ LJNE X 0 .Y 0 TO X,y: DO ,7 

/TO SET X 0 .Y 0 = X,Y! DO ]' 6,4 

/TO ERASE screen i TYPE "(ERASE CODE)" 

/TO RESET PRINT ORIGIN: TYPE "(RESET CODE)" 

/TO DRA.J A circle ABOUT X 0 ,Y 0 STARTING AT X,Y 

/and going counterclockwise for fraction 

/OF A circle alpha : SET Ss+.iSET C=ALPHA>D 0 i 6 

/to Go CLOCKWISE! SET Ss-I; 0 O 16 


/GROUPS 16 aNO 17 CREaTE QR USE THE VaRIabLES 
/X* Y.X 0 . Ylo, 2 ,R,C.PiQ,K. and S. 

/S may be replaced By a 1 if desired. 


CLL /VECTOR PLOT ALGORITHM 

TALI X 0 . 

TAD PI 
DCA X 01 
RAL 

TaO X 00 
TAD P 0 

DXL /( 6317 )- FOR LAB -8 

DCA X 00 

CLL 

TAD Y 01 
TAD Q 1 
DCA Y 01 
RAL 

TAD Y 00 
TAD 00 

DYS /( 6307 > - FOR LAB -8 

DCA Y 00 

IS? R 

JMP XFI.IN 

JMP I EFDN 3 I 
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/CLIM - 3RAP^ICS OVE.RLAY POR FOCAL, 2?K PAL10 V133 


14-MAR-69 16J01 PAGE 3 



3 0 ?. 0 

CT, 

0 

4517 

0000 


0 

45j20 

0000 


0 

A521 

3030 

PP. 

0 

4522 

3030 

P0I 

0 

4523 

3030 

PI. 

0 

4524 

3030 

QQ. 

0 

4525 

3330 

Q0, 

0 

4526 

00J0 

01, 

0 

4527 

301 3 

XX. 

13 

45 30 

30 30 

X00, 

0 

4531 

0030 

X01, 

0 

4532 

0313 

YY 

13 

4533 

33 30 

Y00, 

0 

4534 

3030 

Y01, 

0 

4535 

0 503 

KK. 

0 

4536 

0030 


0 

4537 

0030 


0 

4543 

452.3 

XXP, 

PP 

4541 

3014 

LP. 


4542 

3030 

R, 

0 


/TO USE AN plotter, ClIN IS NOT NEEDED? SlMPLy 

/add the following lines to groups 16 AND 17 » 

/16,25 S K=S/R 

/16.30 F Is0,6,3*R*C;S P=P-Q»K5S OaQ*P#KjS EsFD I S ( X0*P , Y0+Q ) 

>'17,10 0 16,2JE 1*0, R;S X0 = X0+P/R}S Y0sY0fQ/RjS 2 = FO 1 S ( X0 , Y0 ) 

/l7,20 D 16,4 

/THE iteration parameter "I” MAY BE TAKEN IN GREATER INCREMENTS lE THE 

/soale Factor is also changed? i.e. 

///,,0 DO , 6 , 2 JSET KS 4 /R 

/l7,I5 FOR 1*0,4, R;S X0sX0*K*P5S Y0*Y0*-Q*KIS Z*FO IS ( X0 , Y0 ) 
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/CLIN - 


Graphics overlay for focal, Z2k pali0 


4543 

4407 

XFCIR, FI NT 


4544 

0324 

FGET 

QQ 

4545 

4335 

FMUL 

KK 

4546 

6316 

FPUT 

CT 

4547 

0321 

FCET 

PP 

4550 

2316 

FSU8 

CT 

4551 

6321 

FPUT 

PP 

4552 

1327 

FADD 

XX 

4553 

3000 

FXIT 


4554 

4453 

JMS 

I INTEGER 

4555 

6057 

DXS 


4556 

4407 

fi.t 


4557 

0321 

FG^T 

PP 

4560 

4335 

FMUL 

KK 

4561 

1324 

FADO 

QQ 

4562 

6324 

FPUT 

QO 

4563 

1332 

FADD 

YY 

4564 

0000 

FXIT 


4565 

4453 

JMS 

I integer 

4566 

6067 

OYS 


4567 

7200 

CLA 


4570 

2342 

ISZ 1 

R 

4571 

5343 

JMP 

XFCIR 

4572 

5535 

JMP 

I EFUN3I 


Vl33 14-.MAR-69 16101 PAGE 4 


/circle algorithm 


/(6317) - FOR LAB-8 
/ClEArS AC 


/(6307> - FOR LAB-8 


NOPUNCH 
4600 PACE 

0031 field 1 

xlist 
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4.8 


FOCAL DEMONSTRATIONS 


4.8.1 One-Line Function Plotting 

This example demonstrates the use of FOCAL to present, in graphic form, some given function 
over a range of values. In this example, the function used is 
y =30 + 15(SIN(x) )e 

with X ranging from 0 to 15 in increments of ,5. This damped sine wave has many physical applications, 
especially in electronics and mechanics (for example, in designing shock absorbers for automobiles). 

In the actual coding of the example, the variables I and J were used in place of x and y, 
respectively; any two variables could have been used. The single line 08.01 contains a set of nested 
loops for I and J . The J loop types spaces horizontally for the y coordinate of the function; the I loop 
prints the * symbol and the carriage return and line feeds for the x coordinate. The function itself is 
used as the upper limit of the J loop showing the power of FOCAL commands. 

The technique illustrated by this example can be used to plot any desired function. Although 
the * symbol was used here, any legal FOCAL character is acceptable. 

08.01 F 1=0, .5, 15; T F J=0,30+15*FSIN(I)*FEXP <-.l*I >;T " " 

* 

* 

*DO 8.01 
* 
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4.8.2 


How To Demonstrate FOCAL*s Power Quickly 

a . Load the program and start at 200, 

b. Explain that the initial dialogue gives you options. 

c. Try some other response like MAYBE ) . 
d . Now answer YES ) . 

e. The preceeding has demonstrated the interactive capabilities of the language and the 
compromises that it permits. 

f . In a 4K machine (4096 words) FOCAL gives the user 15 functions and uses only 3K, 
leaving enough room to solve up to 6th order simultaneous equations. 

g. The asterisk (*) means that FOCAL can now respond to your commands, 
h . The basic command is TYPE: 

*TYPE 5 12+ FSQT (5) j 

i . Now compute 5 factorial: 

*SET ALPHA=1 

*FOR 1=1 , 5; SET ALPHA=ALPH*I 

j . The answer is ready when the next asterisk is typed out: 

Then type 

*TYPE ALPHA 

for the answer . 

k. Now if you are using a PDP-8 or -8/l, demonstrate a large number: 

*SET A=1 

*FOR 1=1, 300; SET A=A*I 

some time later 

*TYPE A 
= 0.395 615 

l . Now generate a plot via a stored program: 

*1.1 FOR Y=0, .5, 15; TYPE ! ; D02 
*1.2 QUIT 

*2.1 FOR X=0, 12+10*FSIN(Y) ; TYPE " " 

*2 2 TYPE " * " 

*GO 

m. Now use the MODIFY Command to change 10* to FEXP (Y/6)* and try again. 

4.9 FOCAL Versus BASIC 

FOCAL is superior to BASIC, not only in terms of computing power and ease of use, but also 
in maximum use of the memory space, which is so often limited in small computer systems. 
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FOCAL contains all the power of BASIC, and in addition provides the following capabilities: 

a , Control of the output format (i .e. , precise figure location on a page and graphical 
representation); 

b. An "immediate" mode, allowing the system to operate as a desk calculator and to 
execute simple problems without writing a program; 

c. The capability of executing individual "stored program" statements in the immediate 
mode for debugging and verification; 

d. Built-in symbolic editor capable of searching program statements for specified characters 
and inserting and deleting characters within a statement, thereby eliminating the retyping 

of the entire program statement; 

e. Multiple statements may be grouped on each line for more logical ordering of the pro- 
gram; 

f . True multiple level re-entrant subroutining capabilities; 

g. A trace feature which types out selected segments of a program (as the program is 
executed) to pin point exactly where a program error occurred; 

h . Commands may be abbreviated to one letter; this eliminates wasted typing time when 
writing a program and increases the available storage space for use by additional program 
statements; 

i . Programs may be saved on disk and chained together; 

i . Poinf plot displays, vector displays, X, Y plotters, and analog to digital converters 
may be operated by FOCAL; this capability can be used in an on-line, real-time fashion; 

k. FOCAL SYSTEMS allow use of several hardware configurations: 8K, 10 digit, display, 
and multi-user. 
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CHAPTER 5 

ADDITIONAL FOCAL APPLICATIONS 


5.1 FOCAL FOR THE LAB-8 


5.1,1 Standard 

Two commands have been added to FOCAL to Implement the A to D converter and the 
oscilloscope display on the AX08. 

a. A to D Command: 

FADC(N) where N Is the channel number In decimal . 

The command: 

SET Z = FADC(28) 

gives the variable Z a value of octal channel 34 depending on the position of the upper 
righthand potentiometer. The other 3 knobs are channels 29, 30 and 31 . A subroutine 
In FOCAL to read the A to D In volts Is as follows: 

15.1 ASK CHAN;C-0,1,2,3 

15.2 SET X=FADC(28+CH) 

15.3 IF (X-256)15.Y,15.4;SET X-X-4096 

15.4 SET X=X/255 

The Input variable Is CH for values of 0 to 3, and the output variable Is X with values 
±/volt . 

b. Display Command: 

The display command has been modified to use only one statement to define X and Y. 
SET Z = FDIS(X,Y). 

will display a point on the oscilloscope screen defined by points X and Y. X can range 
between 0-51 1 and Y from -255 to +255. The variable Z Is a dummy. (It Is given the 
value of the Integer part of Y.). (c.f.. Section 5.8 for circle and sector algorithms.) 


CAUTION 

Since the ADC of the AX08 hardware Is an Integral part 
of the display logic, using both display and A and D, 
may result In splatter of the Y direction of the oscillo- 
scope screen . 


5.1.2 Additional (Possible) FOCAL Functions for AX-08 

FADC (n): Converts (decimal) channel n. Returns result of conversion. 

FDIS (x,y): Loads display X and Y; intensifies point. 
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FTIM (n): Delays n RC clock pulses (n < 4096) 

Returns ^ of 100 ps increments since last used. 

Xtal clock interrupt is enabled. 

Interrupt servicing for Xtal clock as 
follows: 

SKXK 

JMP OTHERS 
CLXK 

ISF TIME +1 
JMP .+3 
ISF TIME 
NOP 
ION 
JMP I 0 

Clock flag servicing will tie up 20% of processor time. 

When FTIM is called, do the following sequence: 

TAD (1002) /enable Xtal clock, start RC clock 

OTEN 

get n 

SNA 

JMP XTIME 
CMA I AC 
DC A RCNTR 
CLRK 
SKRK 

JMP .-1 
ISZ RCNTR 
RMP .-4 

XTIME, PUT TIME, TIME +1 in FLAC 

DCA TIME 
DCA TIME +1 
return to FOCAL 

FNEW (a, b, c) 

a = 0: Turn on relays indicated by b (b < 7) 

Turn off relays indicated by c (c<7) 
as follows: 

get b 
RAL; RTL 
AND (70 
OTEN 
get c 
RTL; RAL 
AND (70 
CMA 
ZTEN 
CLA 

return to FOCAL 

a = 1: "and" external register with mask 

b: mask (octal) 

c: ignored 
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Get characters of b 
interpret as octal ^ 

DCA XMASK 
XRIN 

AND MASK 
XRCL 
CMA JAC 
TAD MASK 
SNA CLA 
lAC 

store In FLAG 
return to FOCAL 

a = 2: "or** external register with mask 

b: mask (octal) 

c: ignored 

get characters of b 
interpret as octal ^ 

DCA XMASK 
XRIN 

AND MASK 
XRCL 
SZA CLA 
lAC 

store in FLAG 
return to FOCAL 

5.2 FNEW FOR DATA ARRAYS* 

A new function for 8-K FOCAL is available which uses field one to store data arrays in 
floating double precision, single precision, and signed integer format. This facility is added to 
FOCAL via the function call FNEW. The function may be called recursively to any level, and all 
of the features of FOCAL are retained. In addition an ERASE or ERASE ALL command will not wipe 
out the array. Hence, variables may be stored for use in successive programs. 

5.2.1 Storage Requirements 

Fits into unused locations in floating point package 

5.2.2 Usage 

5.2.2. 1 Loading - Load after FOCAL has been loaded into the machine (and the initial dialogue is 
executed). Load the first part of the overlay using the Big Loader. If a single precision floating 
array is desired press CONTINUE. A patch should now be read in to allow a 1980 element array in 


*Originated by University of Georgia, program not supported by DEC. 
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single precision floating point. If an integer array (maximum number = 3047) is desired press 
CONTINUE. A patch will now be read in to allow a 3965 element signed integer array. 
Restart FOCAL at 200. 


5. 2. 2. 2 Calling Sequence - To store a variable Z as array element J: 

* S X=FNEW (J,Z) 

or 

*4.3 S X=FNEW (J,Z) 

In addition, X will be set equal to Z. 

To call the array element K and set Z equal to this element: 

* S Z=FNEW(K) 

i .e. , if there is only one argument the instruction is interpreted as a "GET". If there are 
two arguments it is interpreted as a "PUT". 

5.2.3 Recursive Calling 

The function FNEW may be called recursively at any level . viz. 

* S Z=FNEW [J, FNEW(J+10)3 

sets Z=FNEW(J+10) and stores FNEW(J+10) in array element J. 

* 3.2 S Z=FDIS (J*1000) , FDIS(FNEW(J)*NORM) 
the arguments may be any arithmetic expression. The following are valid: 

* S Z=FNEW (J*10-3, FEXP(X^)*Y) 

* S Z=FNEW (J,FNEW (K)*FEXP(FNEW(L))) 

5.2.4 Restrictions 

Double precision floating: 

Single precision floating: £ 1979 

Integer Array: 0< J <3965 

I Z I <2047 

5.2.5 Description 

The function FNEW protects the binary loader in upper core. The function checks to see if 
J is too large, but does not check to see if Z is larger than 2047 in the integer array case (c.f., array 
overlay). 

The user, of course, may subdivide this array into any number of smaller arrays, keeping 
track of his own indices. 


(23 bits of significance) 
(11 bits of significance) 
(11 bits of significance) 
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5.3 DYNAMIC INTERRUPT PROCESSING VIA FOCAL, 1969 

This simple patch allows real-time interrupts to initiate execution of a specific FOCAL 
subroutine (e.g. Group 31) which gains control (i.e., D031) when an interrupt occurs from an external 
device. The FOCAL subroutine could sample various channels of the A/D converter, set a few con- 
stants, then turn off the interrupt, and return to the main FOCAL program. The main FOCAL program 
will carry out the analysis or output of data during the time between these external device interrupts. 
The external device could even be an animal and the time between interrupts will be asynchronous and 
long (between 1 and 1000 seconds), or the external device will be a clock, in which case the time 
between interrupts will probably not be less than 100 ms or greater than 1 sec. 

/patch to Interrupt processor 
(tag assignments from symbol table) 

*EXIT /replaces H.S. Reader* 

lOTl /skip if device 

JMP.+3 

NOP /"HINBUF" is cleared 

*PC1 /checkpoint in main program 

JMP I 175 / valid for 8K, also 

*167 

DIPCHK /Dynamic Interrupt Check 

*HINBUF 

1 /initialized to non-zero 

*HREAD 

DIPCHK, TAD HINBUF 
SZA CLA 
POPJ 

TAD PC /save FOCAL register 

PUSHA 

TAD SPCLN /(your group ^) 

DCA LINENO 
DCA NAGSW 
ISZ HINBUF 
PUSHJ 
DO+1 
POPA 
DCA PC 
POPJ 

SPCLN, 7600 /(group 31) 

The routine in group 31 returns control by "RETURN". This feature does not operate until 
main program is started. It will operate during execution of a direct command. 
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5,4 


SIMULTANEOUS EQUATIONS' SOLUTIONS 


This program will work with a set of simultaneous linear equations (in 4K. FOCAL 6 equations 
is the limit) and output the solutions. To do this the program requests a value "L", the number of equa- 
tions and variables to be processed. The program then requests the coefficients and constants for each 
equation, in a matrix like format. The solution values are typed out in a column with the names "X(0)" 
through "X(L-I)". The program is available through DECUS. 

5 .5 FAST FOURIER TRANSFORMS PROGRAMS 

The FAST FOURIER TRANSFORMS Program is designed to accept samples of a complex wave 
pattern as input and, through a FOURIER analysis, describe its component sine and cosine waves in 
terms of amplitudes and frequencies. 

The user inputs a number "N", which must be a power of two, (in 4K. FOCAL, "4" is the 
limit) and which describes the number of samples to be used in the analysis. Next the samples, which 
are wave height measurements taken at regular intervals, are requested. Output is in the form of two 
columns (side by side), the left of which describes the cosine wave components while right hand 
column describes the sine wave components. 

It should be noted that because the number of samples is always a power of two, the number 
of complex multiplications is cut drastically. For this reason computation time is also greatly reduced. 

NOTE 

In order to use this program, the extra extended 
function FX(A,B) must be loaded into memory 
via the BIN loader. 


FAST FOURIER TRANSFORMS 
W 

C-FOCAL.,1968 

01.08 A "POWER OF 2 ",NU 
01.10 S N=2tNU;S TP=2*3. 14159/N 
01.18 S S=N/2:, L=1;S Q=5-1;S H=1-NU 
01.20 F 110,N-1;A !;A !,XR(I);S XI(I)=0 

01 .22 S SR=XR(Q+S)+XR(Q);S XR(Q+S)=XR(Q)-XR(Q45);S XR(Q)=SR 
01 .24 I (Q) 1 .26,1 .26;S Q=Q-1;G 1 .22 
01.26 1 (L-NU) 1.28,1.54,1.28 

01.28S L=L+1;S S=S/2;S H=tt+l;S P=N-1;S Z=l/(2t(-H)) 

01.32 S C=1 

01.34 S U=FITR(P*Z);S K=FX(NU,U)*TP 
01.36 S CO=FCOS(K);S SN=FSIN(K) 

01.38 S GR=CO*XR(P)+SN*XI(P);S Gl=CO*Xl(P)-SN*XR(P) 


5-6 



01.40S Q-P-S;S SR-GR+XR(Q);S SI=<5I+XI(Q);S XR (Q)=XR(Q)-GR 

01.42S XI(Q)=XI(Q)-GI;S XR(P)=SR;, XI{P)=SI 

01.46 5 P=P-1; I (-FABS [C-S]) 1.48; I (P-S+1) 1.52,1.26,1.52 

01.48 S C=C+1;G 1.34 

01 .52 S P=P-S;G 1 .32 

01.54F I=0,N-1;S K=FX(NU,I);T ! ,%3.2,2*XR(K)/N, " '‘,2*XI{K)/N 

* 

*C-TRANSFORM OF INTERFERENCE PAHERN FORMED BY MIXING A SINE 

*C-WAVE OF AMPLITUDE 1 .0 AND A COSINE WAVE OF AMPLITUDE 1 .5 

* 

*GO 

POWER OF 2 ;3 

-.1.5 

:1.768 

:1 

:-.353 
:-1 .5 
;-1.768 
:-1 


:.353 


++0.00 

=40.00 

=+1 .50 

=-1 .00 

=-K).00 

-K).00 

=-K).00 

=-0.00 

=+0.00 

=40.00 

=40.00 

=40.00 

=40.00 

=40.00 

=+1 .50 

* 

-n.oo 


/FNEW(u,v) forFFT 
*BOTTOM 
4377 

*FNTABF+1Y 

XFX 

*4400 

XFX, JMS I INTEGER 
Dca U 
PUSHJ 

EVAL-1 


JMS I 
CIA 

INTEGER 

DCA 

T2 

DCA 

LORD/Iow order 

TAD 

U 

CLL 

RAR 

DCA 

U 

TAD 

LORD 

RAL 


DCA 

LORD 

ISZ 

T2 

JMP 

.-7 

JMP I 

EFUN3I 
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5.6 


TRAVEL VOUCHER TO EXPENSE VOUCHER CONVERSION PROGRAM 


Though FOCAL is not a business oriented language the use of FOCAL in business applications 
is not impossible. Such a use is seen in the TRAVEL VOUCHER TO EXPENSE VOUCHER CONVERSION 
program with which the user may ease the task of reporting his expenses after a business trip. 

Working from the input of the number of the days using the expense account and the categor- 
ized input of the expenses encountered (all amounts must be entered in terms of cents rather than dollars) 
during that period, the computer tallies and itemizes 
a . the daily expenses and 

b . the totals of the expenses over the entire period . 

The data, thus summarized, are very easily transcribed onto an employee expense voucher. 


TRAVEL VOUCHER TO EXPENSE VOUCHER 
CONVERSION PROGRAM 


C-FOCAL., 1969 

01 .01 T ! ! "EXPENSE ACCOUNTER (TYPE ALL AMOUNTS IN PENNIES)" 
01 .05 ERASE 

01.10 ASK %6.02,!"HOW MANY DAYS?" DAYS, I 
01 .20 IF (DAYS) 1 . 1 , 1 . 1 ; FOR 1=1 ,DAYS; DO 5 
01 .40T ! ! " THE TRIP TOTALS ARE";F I=1,30;T " " 

01.41T "GRAND"! 

01 .60 SET LO=LT; SET ME=ET 

01 .70 SETOJ=OT; SET MI=MT; DO 7 

01.80 TYPE " $"!!!!!! 

01.90G 1.05 


05.10 

05.20 

05.30 

05.40 

05.50 

05.60 

05.70 

05.73 

05.75 

05. 76 A 

05.77A 

05.85 

05.90 

05.91 

05.92 

05.93 

05.94 

05.95 

05.96 


ASK 1!1"BRKFST " B1 
ASK ! "LUNCH " B2 
ASK 1 "DINNER " B3 
ASK ! "SNACKS " B4 

ASK I "MILES TRAVELED ? "B5; SET B5=B5*9; TYPE " $ B5/100; DO 6 

ASK {"HOTEL " B6 

ASK ! "OTHER " B7 

ASK I "TELE " B8 

A!"TAXI "Cl 

!"PARKN "C2 

!"TOLL "C3 

ASK !"MISC. " B9 

TYPE {"THE DAILY TOTALS ARE"! 

SET LO=B6; SET ME=Bl-t62+B3+B4 

SET 0J=B5-K:1; SET MI=B9+B8+B7+C2-tC3 

TYPE "DAY NO."; DO 7.1 

TYPE !%3,I," ";D0 7.2; DO 7.3 

SET LT=LT+LO; SET ET=ET+ME 

SET OT=OT-K)J; SET MT=MT+MI 
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06.10 ASK " MISC. TRAV. ? "B6; SET B5-B5+B6 

07.10T " LODGING MEALS OTHER TRAV. MISC. TOTAL 

07.15 T ! 

07.20T %8.02,LO/100," "ME/100, " "OJ/100," "Ml/lOO," 

07.30 T (LO+ME4OJ+MI)/100 


*G 

EXPENSE ACCOUNTER (TYPE ALL AMOUNTS IN PENNIES) 

HOW MANY DAYS ? :2 

BRKFST :150 
LUNCH :170 
DINNER :645 
SNACKS :35 
MILES TRAVELED ? :36 

$=+3.24 MISC. TRAV. ? :0 

HOTEL :1400 
OTHER :0 
TELE :40 
TAXI :0 
PARKN :250 
TOLL :0 
MISC. :0 

THE DAILY TOTALS ARE 

DAY NO. LODGING MEALS OTHER TRAV. MISC TOTAL 

=+ 1 =+ 14.00 =+ 10.00 =+ 3.24 =+ 2.90 =+ 30.14 

BRKFST :98 
LUNCH :192 
DINNER ;650 
SNACKS :30 
MILES TRAVELED ? :23 
$ ^ 2.07 MISC. TRAV. ? :0 

HOTEL :1400 
OTHER :398 
TELE :285 
TAXI :0 
PARKN :250 
TOLL :0 
MISC. :0 
THE DAILY TOTALS ARE 

DAY NO. LODGING MEALS OTHER TRAV. MISC TOTAL 

=+ 2 =+ 14.00 9.70 =f 2.07 =+ 9.33 =+ 35.10 

THE TRIP TOTALS ARE GRAND 

LODGING MEALS OTHER TRAV. MISC TOTAL 

=+ 28.00 =+ 19.70 =+ 5.31 =+ 12.23 =+ 65.24 $ 
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5.7 


TWINS DEMO 


The TWINS DEMO Program is an interesting experiment in the applications of plotting with 
a visual scope display unit. It must be noted that several functions must be loaded into memory before 
this program will operate. This program is an integral part of curve fitting. The Twins Demo requires 
V68/I Control with Tektronix 611 Scope, (i.e., 340 control) 

TWINS DEMO 


W 

C-FOCAL., 1969 

01. 055 A=FDIS 0 +FDXS () +FNEW(2) + FNEW (256) 

Ol.lOS A=.2;S SW=19 

01.70F T=0,.05,6.284;S T2=T+3. 14159/4;DO 1 .8;DO 15 

01.75 G2.1 

01 .80S R=4*FSIN(T) +4;S X=8+R*FCOS(T2);S Y=32+R*FSIN(T2) 

02.10 F Y=28.5,A,32;S K=( (Y-30.5)/l .5) t 2;S X=9-(K*K-K);DO 15 

03.10 F X=7.4,A,10.5;S Y=26.5-( (X-9) f2)/2;DO 15 

04.10 S X=10.5;F Y=17,2*A,24.8;DO 15 

05.10 F X=7 .2*A,8;S Y=22-7*(X-7); DO 15 

06.10 F X=10.5,A,15;S Y=26-FSOT(5*(X-10) );DO 15 

07.10 F X=11 .5,A,14.5;D 8.5 

07.20 F X=14.5,.2*A,15;D 8.5 

08.10 F X=3,A,4.6;DO 8.4 

08.20 F X=11,A,12;DO 8.4 
08.30 G 9.1 

08.40 S K=X-7;S Y=12+(K*K)/4;DO 15 
08.50S Y-21-FSQT(6.25-(X-12.5)t2);D 15 

08. 60S Y=(X-7)f2-1;D 15 

08. 70S X-5+FSIN(3.14159*(Y-12)/7);D 15 

09.10 F Y=0,2*A,16;S X=12-( ( Y-8) t2)/64;DO 15 

10.10 F X=2,A,4.5;S K=X-3;S Y=K*(K*(.47*K-.5)+l .03)+26;DO 15 

11.10 F X=2,(.2*A),2.85;D 8.6 

11.20 F X=4.7,.2*A,6;D 8.6 

12.10F Y=^.5,2*A,12;D 8.7 

12.20F Y=15,2*A,25;D 8.7 

13.10F X=5.3,.3*A,6;S Y=-7*(X-6);DO 15 

14.10F Y=12,2*A,24;S K=( {Y-15.5)/1 1) f2;S X=5.5+12.5*(K*K-K);DO 15 

14.20F Y=4,2*A,12;S K=Y-8.5;S X=8.1-FSQT(27-K*K);DO 15 

14.30R 

NOTE 

Group 15 must be supplied to scale X, Y and call ap- 
propriate display for the device, (c.f.. Section 5.8) 
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APPENDIX A 

FOCAL COMMAND SUMMARY 


Command 

Abbr 

Example of Form 

Explanation 

TYPE 

T 

TYPE FSQT (AL t 3+FSQT (B) ) 

Evaluates expression, types out =, 
and result in current output format 



TYPE "TEXT STRING"! 

Types text. Use ! to generate 
carriage return line feed. 

WRITE 

W 

WRITE ALL 

FOCAL prints the entire indirect 
program . 



WRITE 1 

FOCAL types out all group 1 lines, 



WRITE 1 .1 

FOCAL prints line 1 .1 

IF 

1 

IF (X) 1 .2, 1.3, 1.4; 

Where X is identifier or expression 


Confrol is transferred to the first, second, or third line number if (X) is less than, equal to, 
or greater than zero respectively. If the semicolon is encountered prematurely then the remainder of 
the line is executed. 

MODIFY M MODIFY 1 .15 Enables editing of characters on 

line 1 .15 

The next character typed becomes the search character. FOCAL will position itself after 
the search character; then the user may 

a. type new text, or 

b. form-feed to go to the next occurrence, or 

c. bell to change the search character, or 

d. rubout to delete backwards, or 

e. left arrow to kill backwards, or 

f . carriage return to end the line, or 

g . line-feed to save the rest of the line. 


QUIT 

Q 

QUIT or * or control -C 

Returns control to user. 

RETURN 

R 

RETURN 

Terminates DO subroutines 

SET 

S 

SET A = 5/B * SCALE (3) 

Substitution statement 

ASK 

A 

ASK ALPHA (I + 2 * J) 

FOCAL types a colon for each 
variable; the user types a value to 
define each variable. 
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Command 

COMMENT 

CONTINUE 

DO 

ERASE 

FOR 

GO 

GOTO 


Abbr Example of Form 

C C - compute area 

C C - ignore temporarily 

D DO 4.14 

DO 4 

DO ALL 

E ERASE 

ERASE 2 
ERASE 2.1 
ERASE ALL 

F FORI=x,y,z; TYPE I 


G GO 

G GOTO 3.4 


Explanation 


If a line begins with the letter C, 
the remainder of the line will be 
ignored. 

Execute line 4.14; return 

Execute all group 4 lines, return 
when group is expanded or when a 
RETURN is encountered. 

Execute entire indirect text as a 
subroutine. 

Erases the symbol table. 

Erases all group 2 lines. 

Deletes line 2.1 . 

Deletes all user text. 

The command string following the 
semicolon is executed for each value; 
x,y,z are constants, variables, or 
expressions. x=initial value of I, 
y= value added to I until I is greater 
than z. y is assumed =1 if omitted. 

Starts indirect program at lowest 
numbered line number. 

Starts indirect program at line 3.4 


C - The Fourteen (14) Functions are 


FSQT 

FABS 

FSGN 

FITR 

FRAN 

FEXP 

FSIN 

FLOG 

FDIS 

FADC 

FNEW 

FX 


( ) - Square Root 

( ) - Absolute Value 

( ) - Sign Part of the Expression 

( ) - Integer Part of the Expression 

( ) - A Noise Generator 

( ) - Natural Base to the Power 

{ )and " FCOS ( ), FATN ( ) - Trig Functions 

( ) - Naperian Log 

(X,Y) - Scope Functions 

( ) - Analog to Digital Input Function 

( ) - User Function 

( ) - Extra User Function 
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APPENDIX B 
ERROR DIAGNOSTICS* 


Table B-I 

Error Diagnostics of FOCAL, 1969 


Locafion 

Code 

Meaning 


?00.00 

Manual Starf given from console. 


?01 .00 

Interrupt from keyboard via control-C. 

0250 

901.40 

Illegal step or line number used. 

0316 

901.78 

Group number is too large. 

0340 

901.96 

Double periods found in a line number. ^ 

0351 

901. :5 

Line number is too large. 

0362 

901.; 4 

Group zero is an illegal line number. 

0440 

902.32 

Nonexistent Group referenced by ‘DO’. 

0464 

902.52 

Nonexistent line referenced by 'DO'. 

0517 

902.79 

Storage was filled by push -down list. 

0605 

903.05 

Nonexistent line used after 'GOTO' or 'IF'. 

0634 

903.28 

Illegal command used. 

1047 

904.34 

Left of in error in 'FOR' or 'SET'. 

1064 

904.52 

Excess right terminators encountered. 

1074 

904.60 

Illegal terminator in 'FOR' command. 

1147 

904.: 3 

Missing argument in Display command. 

1260 

905.48 

Bad argument to 'MODIFY'. 

1406 

906.06 

Illegal use of function or number. 

1466 

906.54 

Storage is filled by variables. 

1626 

907.22 

Operator missing in expression or double *E'. 

1646 

907.38 

No operator used before parenthesis. 

1755 

907. :9 

No argument given after function call. 

1764 

907. ;6 

Illegal function name or double operators used. 

2057 

908.47 

Parenthesis do not match . 

2213 

909.11 

Bad argument in 'ERASE'. 

2551 

910. :5 

Storage was filled by text. 

2643 

911.35 

Input buffer has overflowed. 

5042 

920.34 

Logarithm of zero requested . 

5644 

923.36 

Literal number is too large. 

6543 

926.99 

t Power is too large or negative. 

7111 

928.73 

Division by zero requested. 

7405 

930.05 

Imaginary square roots required. 


931. <7 

Illegal character, unavailable command, or unavailable 
function used. 


*The above diagnostics apply only to the version of FOCAL, 1969, issued on tape DEC-08-AJAE-B 
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B.l 


OBTAINING ERROR CODES VIA ODT36 


To obtain error codes via ODT36, proceed as follows: 

a. Start ODT at 3600. 

b. User types underlined letters: 

(change, from, to) 

4320/1357 1275 ( line feed ) 

4321/4745 3067 ( line feed ) (LINENO) 

4322/1675 4552 ( line feed ) (PRNTLN) 

4323/4246 7000 (carriage return) 

63/2676 1355 (C.R.) (OUTDEV, OUTL) 

c . then 

J±7777 mi ( line feed ) 

4273/0001 4400 (C.R.) 

4565W (ERROR 2) 

Calling addresses and error codes will be printed here. The first two and last error codes 
(00.00,01 .00,31 . <7) are always the same. 
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APPENDIX C 

EXPLANATION OF NEW INSTRUCTIONS 


C,1 NEW INSTRUCTIONS (see Table C-1) 

C.1.1 Push Down List Insfrucflons 

The user's push down list begins at the start of the floating point package and grows up 
toward the last variable. The initial value of the push down list pointer is contained in location 
"BOTTOM". The pointer is kept in an auto-index labeled "PDLXR". The instructions used to manage 
the list are given below: 

PUSHA places the contents of the AC onto the list as the current entry 

POP A adds the current entry of the push down list to the AC, 

PUSHF saves a group of data, normally a floating point entry. 

This instruction is followed by a pointer to a 3 word (or 
4 word) group of data . These 3 or 4 words are placed 
on the push down list as the current entry. 

POPF restores a 3 or 4 word group of data from the current 

entry on the push down list according to the pointer 
which follows the instruction. The location "MFLT" 
contains either -3 or -4 and determines the number 
of words affected by "PUSHF" and "POPF". 

PUSHJ calls subroutine which is pointed to by the word follow- 

ing the instruction. The return address is placed on the 
push down list as the current entry. 

POPJ the current entry is used as a return address from a sub- 

routine. 

C.l .2 Character Handling Instructions 

These instructions are used to pick-up, save, and print characters for processing by FOCAL. 
Characters are fetched from the user's storage area or from the ASR-33 input buffer. Character con- 
version between 8 and 6 bits and the trace feature are handled by these routines. 

PRINTC is used to print a character. If the AC is zero upon 

entry then the character in "CHAR" is printed. If the 
AC is non-zero, then the contents of the AC is printed. 

RE ADC Reads a character from the user's input buffer (ASR-33 

input) and echos all characters except line feeds and 
rubouts. The character is placed into "CHAR". 

PACKC places the 8-bit character in "CHAR" into the user's 

storage area. If the character is a rubout the previous 
character is deleted from the user's area and a back- 
slash is echoed via "PRINTC". The character is 
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converted into 6-bit code. The auto index 
"AXIN" and the flip-flop "XCTIN" are pointers 
to the user's storage area. 

GETC this instruction fetches the next character from the 

right or left side of the word pointed to by "AXOUT" 
and "XCT” and places it into "CHAR". If a question 
mark character is detected the dump switch "DMPSW" 
is flipped. If the dump switch is on then the character 
in "CHAR" is printed via "PRINTC". 

SPNOR Blanks and leading zeroes are ignored by repeated 

calls to "GETC". 

C.1.3 Character Testing Routines 

These guide the interpreter through the source text. They are testing routines used through- 
out FOCAL in interpreting the program and in other instances. 

SORTC the character in "CHAR" is classified according to 

an ASCII list which is pointed to by the location follow- 
ing the instruction. If the character is found in the list 
an exit is made to the location following the list pointer. 

If no character is found exit is made to the second location 
following the list pointer. If the character was found in 
the list then "SORTCN" contains the position relative to 
zero in the list searched. The list is terminated by a negative 
word . 

SORTJ the character in "CHAR" or in the AC is classified accord- 

ing to a list as per "SORTC" . If the character is found in 
the ASCII list, then a jump to an address is made from a 
second list. The second list is pointed to by the 2nd 
location following call . If the character is not found then 
exit is made as per "SORTC". "SORTCN" is not changed, 
however . 

TESTC this instruction fetches the next non-space and classifies 

it as a terminator, number, function, or letter. The instruc- 
tion then skips zero, one, two or three cells accordingly. 

TESTN "CHAR" is classified according to whether it is a period 

(no skip), number (skip two), or other (skip one) . If 
"CHAR" is a number then its binary value is in "SORTCN". 

TSTLPR This instruction skips the next instruction if the AC contains 

a left parenthesis. 

C.l .4 Line Number Handling Instructions 

This group is used in manipulating line data and line numbers. 
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TSTGRP 

PRNTLN 

GETLN 


FINDLN 


ENDLN 


If the group of the line number in the AC is equal 
to the group on the line in "LINENO" the next 
instruction is skipped. 

the coded line in "LINENO" is printed as a decimal 
fraction with group number and the step number 
separated by a decimal point. 

"SPNOR" is called and a line number is built in 
"LINENO" via calls to "GETC" . "NAGSW" is set 
to indicate whether the line number was a group, line, 
or "ALL" designator. 

the line number coded in "LINENO" is searched for 
in the user's text area. If the line is found, -the auto- 
index "AXOUT" and "XCT" are set to point to the 
line's text and an instruction is skipped. If the line 
is not found, the pointer "AXOUT" is set to point 
to the next higher line and no instructions are skipped. 
"THISLN" points to the line found on the next larger 
line and "LASTLN" points to the previous/less 
line. 

"ENDLN" links the line in the user's storage area 
to the rest of his text. It uses the result of the "FINDLN" 
instruction to accomplish this. The new end of the user's 
buffer is set-up in "AXIN". This command is used for 
insertion of new text, reconnecting after a deletion, 
and reconnection after Modify. 


Table C-1 
New Instructions 


PUSHJ - JMS I . 

XPUSHJ 

POPA = TAD I POLXR 
POPJ = JMP I . 

XPUPJ 

PUSHA - JMSI . 

XPUSHA 

PUSHF = JMSI . 

PD2 

POPF = JMS I . 

PD3 

GETC = JMS I . 

UTRA 

PACKC = JMS I . 

PACBUF 

SORTJ=JMSI . 

SORTB 

/NUMERICAL LIST -1 
/ADDRESS LIST - NUMERICAL LIST 


/RECURSIVE SUBROUTINE CALL 

/RESTORE AC 
/SUBROUTINE RETURN 

/SAVE AC 

/SAVE GROUP OF DATA 

/RESTORE GROUP 

/UNPACK A CHARACTER 

/PACK A CHARACTER 

/SORT AND BRANCH ON AC OR CHAR 
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Table C-1 (Cont) 
New InstrucHons 


SORTC = JMS I . 

XSORTC 

/SORT CHAR 

PRINTC = JMS I . 

OUT 

/PRINT AC OR CHAR 

READC - JMS I . 

CHIN 

/READ ASR-33 INTO CHAR AND PRINT IT 

PRNTLN=JMSI . 

XPRNT 

/PRINT C (LINENO) 

GETLN = JMS I . 

XGETLN 

/UNPACK AND FORM A LINENUMBER 

FINDLN = JMS I . 

XFIND 

/SEARCH FOR A GIVEN LINE 

ENDLN = JMS I L 

XENDLN 

/INSERT LINE POINTERS 

RTL6=JMS I . 

XRTL6 

/ROTATE LEFT SIX 

SPNOR = JMS I . 

XSPNOR 

/IGNORE SPACE AND LEADING ZEROS 

TESTN = JMS I . 

XTESTN 

/PERIOD; OTHER: NUMBER 

TSTLPR = JMS I . 

LPRTST 

/SKIP IS 5 <SORTCN <11 (I . E. AN L-PAR) 

TSTGRP = JMS I . 

GRPTST 

/SKIP IF G(AC) = G (LINENO) 

TESTC = JMS I . 

XTESTC 

AERM; NUMBER; FUNCTION; LETTER 

ERROR2 = JMS I . 

/EXCESS SOMETHING ERROR 

ERRORS = JMS I . 

/MISCELLANEOUS ERROR 

ERROR4 = JMS I . 

ERR2 

/FORMAT ERROR 
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APPENDIX D 
FOCAL CORE LAYOUT 


Table D-1 

Focal Core Layout-Usage 


Mnemonics 

What 

ZERO 


START 

FOCAL PROPER 

BUFBEG 

BUFFER AREA 

BEGIN 

INITIAL DIALOGUE 

FEXP 


(BET 2+ 3) 
ARTN 

EXTENDED 

(FLAG 3 +1) 
FCOS J 

FUNCTIONS 

(FLOA + 11) 
(TEMPO + 1) 

OUTPUT 

DECONV ^ 

CONVERSION 

(INFIX +5) ->1 

INPUT- 

FLOUTP 1 

l OUTPUT 

(OUTOG+4) j 

f ROUTINES 

(P43+1) > 

FPNT 

FLOATING-POINT 

ACMINS 

INTERPRETER 

(RAR1+1) 
DNORM -J 


(BUFFER + 10)-| 

BINARY 

(RIM) J 

1 LOADERS 
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Table D-2 

Detailed FOCAL Core Layout 


Ml seel laneous 
Numbers 

Floating-Point Working Area 
Constants 

New Instruction Pointers 
VariabI es 


START 

Command/input 

Line Read Routine 

*DO* Routine 

Push -POP Routines 

■GOTO* and ‘WRITE’ and Misc. 

■IF', "SET", ’FOR’ and Misc. 

■ASK’, ’TYPE’, ’MODIFY’ 

"GETARG" - Recursive Routine 
"SPNOR", "TESTN", "POPJ" 
’RETRUN’ 

"EVAL" - Recursive Routine 
OPNEXT - read operator 
ARGNXT - read operand 
ETERM - evaluate terminator 
FLOP - floating operations called 
ENUM - number processor 
EFUN - function processor 
ELPAR - left parens processor 
EFUN3 - function returns 
"DELETE" - Recursive Routine 
DOK - group delete 
DONE - garbage collection 
"FINDLN" - Normal Routine 
Find exact match or next larger 
’ERASE’ command processor 
"GETC" - unpack text and trace 
"ENDLN", "PRNTLN" 

I/O Subroutines 
Interrupt Processor 
ERROR Processor 
"PACKC" - pack text 
Rubout routine 
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Table D-2 (Cont) 


*3120 


T 

E 

X *4400 - 
T 

/ 

V 

A 

R 

I 

A 

B 

L 

E 

S 

/. 

./ 

P 

U 

s 

H 

D *3600 

0 

W *4600 

N 

L 

1 
S 
T 


I/O Buffer 
Command Buffer 
Text Buffer Begins 


Once-Only Code 
SELF-START 


CLEAR ALL FLAGS 
TYPE MESSAGE 


ODT-JR (for X-FUN) 
ODT-JR (for dialogue) 


Floating Point Routines 
(c.f.. Section 4.5.2) 

*4600 Extended Functions 

*5400 I/O Controller 

*6400 Interpreter 

*7600 Binary Loader 

or 8-SYS LIB Bootstrap 
or Disk Monitor Bootstrap 
*7756 Rim Loader 

End of Field Zero 
Field One 
Command 

Buffer Extended Text Storage 
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FOCAL CORE LAYOUT 




Figure D-1 FOCAL Core Layout 
Dynamic Storage 
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APPENDIX E 

SYMBOL TABLE AND OTHER TABLESAlSTS 


E.l SYMBOL TABLE 


/FOCAL, 2HM PALI- V515 10-APR-69 19I3B PAGE 121 


A 

^^45 

9FXX 

4556 

COMETN 

3140 

OUBOIV 

7261 

ABSOL 

6751 

RMOVE 

1255 

COME'^U 

3206 

OUBLAO 

5733 

A8S0L2 

6153 

botthm 

7035 

cohgo 

1163 

0UMLN2 

2012 

A3S0L3 

7375 

PUFBEG 

3217 

CO^LST 

0774 

0V3 

7267 

ABSOLV 

5571 

PUFFER 

7470 

commfn 

0614 

E 

0042 

ACIH 

7241 

BUFR 

7060 

CONI 

5037 

EBELL 

0512 

ACIL 

^1042 

rufrs 

1370 

CONTIN 

1147 

ECALL 

1601 

AC^P'S 

6673 

BUFRSP 

3045 

CONTN 

0076 

ECCR 

2630 

acting 

7771 

RUFST 

5531 

CSTAp 

0225 

ECHO 

0454 

action 

442e 

C 

0047 

CTA8S 

0353 

ECHOLS 

1624 

active 

7037 

C170 

0076 

n 

0041 

EFOP 

0056 

ACTVP 

1143 

C140 

2554 

DATUf^ 

7102 

EFUN 

1743 

AD^ 

7061 

C144 

6140 

datuma 

7252 

ErUN2 

1754 

AO^H 

0040 

C200 

7123 

OCONP 

6303 

ErUN3 

2017 

ADONE 

6673 

C200M 

7065 

DCONT 

7471 

EFUN31 

0136 

AF 

4677 

C260 

0113 

DCOUMT 

6143 

ELPAR 

1763 

AL.ri 

4760 

C3 

5346 

noTjp 

0004 

END 

0134 

ALr2 

4763 

C5 

5342 

0E9GSH 

0026 

ENOFI 

6243 

ALFi? 

4755 

C7 

5336 

HECK 

0040 

ENDLN 

4556 

ALG.\ 

6570 

C9 

5332 

HECKP 

0107 

ENOT 

0135 

ALIG^ 

6623 

CCR 

0077 

DECON 

5627 

ENUM 

1732 

ALIST 

1372 

COF 

7000 

DEC0^'V 

5600 

EOUT 

0474 

ALISTP 

0072 

COFl 

6211 

OECP 

5533 

EP7 

0052 

alpha 

1436 

CEXl 

6504 

oecr 

5521 

EPAR 

1710 

AMOUA'T 

6722 

CEXP 

6503 

DELETE 

4565 

EPAR2 

1765 

arcalg 

4732 

CF 

4705 

or 

4710 

ER5 

4555 

ARCRTM 

5024 

CFRS 

7133 

DGPP 

0425 

ERASE 

2204 

ARGNXT 

1723 

CFRSX 

7137 

DGRPl 

0441 

ERG 

2225 

artn 

5070 

CHAR 

0066 

DIG 

5543 

ERL 

2222 

ASNFT 

6665 

CHARM 

0026 

DIGIT 

5713 

ERR2 

2726 

ask 

1202 

CHIN 

2155 

DIGITS 

7006 

ERR0R2 

4566 

ATn 

4465 

CHKCNT 

1053 

DIVl 

5754 

ERR0R3 

4566 

ATFS 

4513 

CHKCON 

1052 

DIV2 

6757 

ERR0R4 

4566 

ATLIST 

1570 

CHRT 

6133 

divide 

7150 

ERR0R5 

2725 

ATSW 

7056 

CIA 

7041 

OLISTP 

0100 

ERT 

2214 

AXIN 

7010 

CIF 

6202 

DMOO^'E 

7063 

ERV 

2217 

AXOUT 

7017 

ciri 

6212 

ohpsw 

0100 

ERVX 

2237 

P 

7046 

CLA 

7200 

DMULT 

7004 

ESCA 

2532 

PACK 

5503 

CLCU 

7427 

DMULT4 

7036 

ETERM 

1647 

PASEP 

7616 

CLF 

0076 

ONOR^ 

7335 

ETERMl 

1627 

BASES 

1540 

CUL 

7100 

ONUMPR 

5714 

ETERH2 

1655 

BA5EX 

7617 

CMA 

7040 

DO 

0420 

ETERMN 

1644 

PDUMP 

0071 

CML 

7020 

DOK 

2111 

eVAL 

1613 

pegim 

4371 

CNTR 

0057 

done 

2127 

EXl 

0040 

BELLX 

0534 

cntrlc 

0324 

OOONE 

0463 

EXASK 

2662 

pend 

4442 

CNTRlX 

0331 

DOUBLE 

0127 

EXCHCK 

1037 

BETl 

4771 

cntrm 

0024 

OPCVPT 

6302 

EXCHE 

1072 

PET2 

4774 

cntrt 

0032 

OPN 

6305 

EXCHEC 

2615 

beta 

0010 

COOET 

0044 

OPT 

6145 

EXCO 

1007 

BETH 

4766 

COL 

1255 

osave 

5640 

EXGON 

1215 

PF 

4702 

combot 

0226 

OTABLE 

0070 

EXIT 

2646 

BFX 

4557 

C0M8UF 

0132 

DTST 

5647 

EXITl 

5034 
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FXIT? 

53!?2 


FLOUT 

5556 

MOLD 

0036 

KINT 

2625 

rxiT3 

7363 


floutp 

6000 

MOLOT 

1276 

KRB 

6036 

rxiTj 

?661 


FLPT 

6465 

MOLQO 

1277 

KSF 

6031 

r x^on 

2657 


FLSU 

6505 

morq 

0045 

Ksri 

6401 

FXP 

?044 


fltone 

2405 

HREA^ 

6321 

KSF2 

6421 

r XPRIN 

2600 


fltxr 

0014 

MREAn2 

6324 

KSF3 

6441 

EXPRN 

1060 


rLTXR2 

0015 

HSGO 

6364 

KSF4 

6461 

FXPRVT 

1000 


flt^er 

2407 

MSP 

0273 

LI 

5126 

FXRO 

1014 


rM12 

6142 

MSPSl^' 

6375 

L2 

5131 

rXREAD 

2605 


fneg 

5163 

MSPX 

6361 

L3 

5134 

FXPE^ 

1054 


FNOR 

7000 

MSP 

0273 

L4 

5137 

FXSwP 

1142 


FNPT 

4554 

MSWITC 

6343 

L8A 

4550 

FXTR 

2313 


fntapf 

0374 

HTST 

6376 

L8AX 

4553 

r 

'?043 


fntapl 

2165 

133 

2414 

L8AY 

4552 

rcor^^T 

1171 


FOP 

1041 

! AC 

7001 

L8B 

4551 

rcPS 

52/0 


FOUTPU 

0130 

IBAR 

0212 

LASTLN 

0025 

rc^u^■T 

5535 


rpAci 

7474 

I8UFI 

0106 

LASTOP 

0055 

r£^D3 

2267 


FPNT 

6400 

IBUF^ 

0105 

LASTV 

0031 

FEXP 

4620 


FPRNT 

5465 

lECALL 

1037 

LCON 

0371 

F£XT 

'/ 000 


FRST 

3206 

IF 

1013 

LG2E 

4713 

FGn2 

6011 


FRSTX 

3215 

IFl 

1035 

librar 

7503 

FG03 

6027 


FSIN 

5205 

IF3 

1025 

LINENO 

0067 

FG04 

6034 


FXI T 

0000 

IGNQP 

0217 

LIST3 

0077 

EGOS 

6070 


G8L 

4466 

IGNORE 

0447 

LIST6 

0072 

FIGOl 

6221 


GECALL 

1460 

ILIST 

0771 

LIST? 

0074 

FIG04 

6261 


GENO 

2334 

IN 

5513 

LISTCO 

1370 

Fl^CR 

1065 


GEPR 

0340 

INBUF 

0034 

LISTL 

0023 

finolM 

4555 


GETl 

2330 

TNOEV 

0064 

LISTP 

1165 

F 

2246 


GET3 

2345 

INORTT 

6463 

L0G2 

5157 

FIN'FIN 

1137 


getarg 

1403 

INFIX 

2401 

LOGS 

5142 

FIMKP 

1133 


GETC 

4545 

INITL 

3001 

L0C6 

5145 

FINPUT 

/131 


getln 

4554 

INITL4 

3011 

L0G7 

5150 

FIMT 

4407 


GETSGN 

1045 

INLIST 

3570 

L0G8 

5153 

FISl^ 

7052 


GETVAR 

1407 

INOR^' 

6307 

LOOKUP 

4571 

F|X 

6724 


GEXIT 

0352 

I nput 

0756 

LOOP01 

6431 

F IXM 

6753 


GFN'Ol 

1505 

INPUTX 

0271 

LORO 

0046 

flag 

70 44 


OINC 

0070 

INSUR 

0036 

LP7 

7556 

PLAO 

6506 


glist 

1377 

INTEGE 

0053 

lprtst 

2035 

FLAGl 

5162 


GO 

5021 

INTRPM 

0201 

M100 

0101 

flag? 

4725 


GOCR 

0451 

INTRPT 

2603 

M10P7 

6147 

FLARG 

2030 


GONE 

0232 

lOPUF 

3120 

Mil 

0121 

FLARGP 

0125 


GOTO 

0603 

I OF 

6002 

M12 

2413 

FLHV 

7107 


grptst 

0744 

ION 

6001 

M137 

2357 

flex 

6515 


GSl 

1437 

lOTX 

0110 

M140 

2556 

FLHT 

6467 


GS2 

1461 

IPART 

1040 

M144 

6137 

FLlMIT 

1075 


GS3 

1441 

IRETN 

0227 

M2 

0111 

FLINTP 

6200 


GS4 

1454 

ITABLE 

6573 

M20 

0105 

FLISTl 

'^577 


GSERCH 

1426 

ITERl 

7470 

M200 

0064 

FLIST? 

7574 


GTEM 

0021 

JUMP 

6462 

M20M 

0056 

FL^Y 

6563 


GHERR 

0362 

K5 

5525 

M240 

0114 

flog 

5040 


HINBUF 

0037 

KEY 

0321 

M240M 

3046 

FLOP 

1674 


hlt 

7402 

KEYX 

0447 

M260 

1526 
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^271 

1527 


NEGP 

4724 

M4 

6141 


NEWU 

0042 

M4P1 

2356 


NEXT0 

1146 


0057 


MEXTU 

1145 

M4M 

0061 


NLl 

7301 

M5 

0120 


NL2 

7326 


1162 


NL2000 

7332 

M77 

2103 


NL3777 

7350 

mbREAK 

2602 


NIL4000 

7330 


7446 


NL5777 

7352 

MCOM 

1136 


NL7775 

7346 

mcR 

0116 


ML7776 

7344 

MCRM 

0063 


NOECMO 

0465 

MQ 

5526 


NOP 

7000 

^^DtCK 

0043 


NOPF 

6513 


1135 


NORM 

6567 

yp 

0602 


NORMF 

7147 

•^rLT 

0117 


NOUSRS 

0073 

^IF 

7260 


NOX 

6675 

MINE 

5662 


NOXl 

6711 

MINSKI 

0051 


N0X2 

6704 

MINUS2 

7153 


01 

4370 

MINUSA 

0112 


02 

4561 

MINUSE 

6301 


04 

4412 

M INUS£ 

5663 


05 

4563 

MLISTP 

0077 


06 

4564 

mod 

5215 


OBUF0 

0104 

MODIFY 

1256 


OBUFI 

0103 

K0VE15 

1232 


OBUFO 

0102 

MOVE20 

1243 


OFFOFC 

4422 

MPl 

7254 


0M12 

5530 

MPll 

0575 


ONDECK 

4421 

MP177 

0445 


ONE 

4716 

MP2 

7256 


GOUT 

4544 

MP3 

7255 


OP 

3115 

MP4 

7200 


OPMIMS 

6565 

MP5 

7253 


OPNEXT 

1622 

^P6 

7210 


OPTAPL 

1731 

MPER 

0115 


OPTR0 

2663 

MPLUS 

5664 


OPTRI 

2665 

MQ 

0035 


OPTRO 

2664 

MQA 

7501 


OPUT 

5532 

mRO 

0444 


otmer 

0215 

MSPACE 

5665 


OUT 

2465 

MULDIV 

7101 


OUTA 

5536 

MULT 

6566 


OUTCR 

2476 

MULT10 

5667 


OUTOEV 

0063 

MULT2 

5715 


OUTOG 

6154 

MULTY 

4752 


outl 

1354 

MX 

0533 


OUTX 

2475 

M2ER0 

0067 


OVERl 

0043 

NAGSW 

0065 


0VER2 

0047 
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P 

0000 

POP 

4562 

P10 

0053 

P0P5 

4570 

P100 

0342 

PDP5X 

4463 

P1000 

0046 

PDPei 

4567 

P13 

0005 

PEG 

6135 

P14 

0706 

PER 

0102 

P140 

0532 

PI 

5312 

P17 

0107 

P12 

5036 

P177 

0106 

PIOT 

5316 

P17M 

0054 

PLCE 

5536 

P2 

4566 

PLS 

6026 

P20 

0055 

PM2000 

1144 

P2000 

0373 

PNTR 

0031 

P27 

6750 

POPA 

1413 

P277 

0110 

POPF 

4544 

P2M 

0707 

POPJ 

5541 

P3 

2034 

PPTEN 

6144 

P337 

0075 

PRINTC 

4551 

P37 

0062 

PRINTO 

7550 

P377 

2553 

PRNT 

2442 

P4 

0060 

PRNT2 

3114 

P40 

2552 

PRNT8 

7527 

P4000 

0124 

PRNTI 

6132 

P43 

6310 

PRNTLN 

4553 

P6777 

0050 

PROG 

0611 

P7 

4565 

PROCES 

0610 

P7000 

0047 

PSIN 

0165 

P7576 

0764 

PTl 

0030 

P7600 

0104 

PTCH 

0126 

P77 

0122 

PTEN 

6275 

P7700 

0101 

PTEST 

1457 

P7740 

0372 

PUSHA 

4542 

P7750 

0763 

PUSHF 

4543 

P7757 

0051 

PUSHJ 

4540 

P77M 

0045 

R6 

5441 

PAl 

2524 

RAL 

7004 

PACBUF 

2502 

RANG 

1530 

PACKC 

4546 

RAR 

7010 

PACK’^T 

0027 

RARl 

6571 

PACX 

2530 

RAR2 

6572 

ralg 

5261 

ROIV 

0152 

parity 

0302 

REAOC 

4552 

PARTES 

2047 

RECOVR 

2740 

PC 

0022 

RECOVX 

2761 

PCI 

0614 

REMAIN 

5712 

PCHECK 

5245 

RCPT 

6146 

PCHK 

0510 

RCSOL 

6752 

PCKl 

2535 

RES0L3 

7376 

PCM 

0101 

RES0L5 

6304 

P02 

0534 

RESOLV 

7173 

P03 

0554 

RESTAR 

0005 

POLXP 

0013 

RESTOR 

0304 
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PACE l?l-3 



RLSTP 

6377 


SNL 

74?i2 


TEST^ 

4561 

XASS 

2014 

RESUME 

2623 


SORTP 

1314 


TEXIT 

7744 

XACTIO 

7643 

PET 

9452 


SORTC 

4550 


TEXTA 

1610 

XADC 

1343 

petrn 

1563 


SORTCN 

0054 


TEXT^ 

7075 

XB 

2655 

return 

5536 


SORTJ 

4547 


TEXTP 

0017 

XBUF 

7516 

REVIT 

7146 


SPA 

7510 


TEXTPM 

0074 

XCOM 

7620 

RFC 

6014 


SPECI A 

6777 


TGO 

5400 

XCT 

7020 

RMF 

6244 


SPL 

7000 


THlR 

7257 

XCTIN 

7062 

RNn2 

5527 


SPLAT 

3051 


thisln 

0023 

XOECK 

7600 

ROOTGO 

7461 


SPMQP 

4560 


this^p 

7024 

XOELET 

2062 

POT 

2557 


SQrONl 

7467 


tintr 

1241 

XOYS 

1142 

ROUNH 

6151 


SOENn 

7465 


TlIST 

1400 

XENOLN 

2360 

RRR 

6012 


SRFT-^ 

0261 


TLIST2 

1404 

XF 

4560 

RSF 

6011 


srnlst 

1363 


TLIST3 

2377 

XFIND 

2242 

RTL 

7006 


START 

0177 


tls 

6046 

XGETLN 

7372 

R TL 6 

4557 


STARTL 

5064 


Tpr 

6044 

XI33 

2666 

RTR 

7012 


STARTV 

0060 


TQUOT 

1232 

XIN 

6376 

RUPl 

3004 


SUPS 

1517 


TRAD 

6573 

XINPUT 

5666 

RUP2 

3042 


S2A 

7440 


TRGl 

1163 

XINT 

1160 

RUB3 

3030 


S2L 

7430 


TRC2 

1164 

XKEY 

0412 

RUB4 

3037 


T 

0000 


TSP 

6041 

xoutl 

2676 

RUP5 

3041 


T1 

0032 


TSFl 

6411 

XPOPJ 

1565 

RU81T 

2555 


Tl? 

4426 


TSP2 

6431 

XPR 

1062 

SAC 

0033 


T2 

0071 


TSP3 

6451 

XPR2 

1064 

SADR 

6150 


T2’i 

2624 


Tsr4 

6471 

XPRNT 

2425 

SAVAC 

2600 


T3 

0033 


tstg^p 

4563 

XPRNT I 

1013 

SAVE 

3751 


TARLf^ 

6464 


tstlpr 

4562 

XPUSMA 

0477 

SAVLK 

2601 


tagi 

6723 


tty 

7322 

XPUSHJ 

0521 

S8AR 

1302 


TASK 

1204 


TTYpr 

7347 

XR10 

0017 

SCHAR 

1273 


TASK4 

1253 


TuO 

4721 

XRll 

0011 

SCONT 

1270 


Tcr 

6042 


TWCPT 

5376 

XR12 

7012 

SCOU^'T 

5534 


TCRLF 

1251 


TYPE 

1203 

XR13 

7013 

set 

1041 


TCPUF2 

1246 


TYPE? 

1226 

XRAN 

1553 

setw 

0527 


TD'JMP 

3052 


UNOE'"K 

7633 

XRAR2 

7365 

SETWI 

0023 


TELSW 

0016 


upar 

7066 

XRSTAR 

7312 

SEX 

1340 


telsni 

0275 


USER^'O 

7041 

XRT 

7011 

SEKC 

0740 


TELSN2 

0276 


USERTS 

1210 

XRT2 

0012 

SfOUNO 

1306 


TELSW3 

0277 


UTF 

2276 

XRTL6 

0413 

SOOT 

1312 


TELSV4 

0300 


UTQ 

2375 

XSGN 

2010 

SIGN 

7124 


TELSW5 

0301 


UTRA 

2274 

XSORTC 

7721 

SIGNF 

0050 


TEM 

5156 


UTX 

2316 

XSPNOR 

1517 

SILENT 

0343 


T£MP 

4726 


VAL 

7032 

XSQ2 

4676 

SIM 

2662 


TEMp^ 

0025 


WALL 

7664 

XSQR 

5326 

SING 

0471 


TEMPT 

0027 


'>JORDS 

7073 

XSQRT 

7400 

single 

2636 


TEMPX 

0030 


WRIT«^ 

7635 

XT3 

7717 

SKP 

7410 


TEN 

6271 


^TEST2 

7653 

XTOUMP 

0535 

slk 

0034 


TENPT 

6152 


WTESTG 

7667 

XTCSTC 

7770 

SMA 

7500 


TERMS 

1770 


wx 

7673 

XTESTN 

1533 

SMIN 

6136 


TEST? 

6736 


X 

5322 

XTTX 

7727 

SMP 

6101 


TEST4 

7366 


XI 

5035 

xtty 

7710 

SMSP 

6134 


testa 

0322 


X2 

4675 

XXTTY 

0742 

SNA 

7450 


TESTC 

4564 


XA 

2656 

XYH 

2451 
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ERRORS DETECTEOI 0 
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E . 2 OTHER TABLES AN D LISTS 





/list of function addresses, (Names are In "FnTabl") 


3373 

F^TABF=, 



’>373 

2014 

XARS 

/ABS 

-absolute value 

<3374 

2010 

XSGN 

/SGN 

-SIGN PART 

'33 75 

1161 

xint 

/ITR 

-integer part 



XOYS 

/DIS 

-display and intensify 

din 

xran 

/RAN 

-random number 

71470 

1344 

XAOC 

/AOC 

-rEad Analog to digital converter 

34 31 

5030 

ARTN 

/ATN 

- 

3432 

4620 

FEXP 

/EXP 

-exponential functions 

3433 

3040 

FLOG 

/LOG 

- 

34. 34 

5235 

ESIN 

/SIN 

-trig Functions 

3435 

3436 

52550 

7 400 

PC ns 

XSQRT 

;s3f 

-square root 

3437 

2725 

errors 

/NEW 

-user defined functions 

3410 

2725 

ERRORS 

/COM 


3411 

2725 

ERRORS 

/X 

• 

'^12 

0000 

XRTi.6, 0 

/ROTATE 

AC left six - ’'RTl6" 

3413 

7106 

CLL RTL 



3414 

7006 

RTL 



3415 

7006 

rtl 



3416 

5612 

JMP I XRTl6 



/£.N(,lISH french 



0775 

comlst=, 

/COMMAND decoding LIST 

0775 

0323 

323 

/Set - 0RG.NI2E 

/FOR - QuaRd 

0776 

0306 

306 

0777 

0311 

311 

/IE - SI 

1000 

0304 

304 

/DO - EAIZ 

1001 

0337 

307 

/GOTO - VA 

1002 

0303 

303 

/comment- commente 

1003 

0301 

301 

/ASK - DEMANOE 

1004 

0324 

324 

/type - TAPE 

1005 

0314 

314 

/LIBRARY- ENTREPOSE 

^006 

0305 

3*^5 

/erase - biffe 

1007 

1010 

0327 

031S 

Ms 

/WRITE - InSCRIS 
/modify - MODIEIE 

1011 

0321 

321 

/QUIT - ArRETE 

1012 

0322 

322 

/RETURN - RETOURNE 

1013 

0212 

212 

/(asterisk)sExpandable command 
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1164 

cOMqOs, /qOMMAN 

Q ROUTINl AqqR^SSeS 

1164 

1042 

set 

1165 

1042 

FOR 


116^ 

1014 

IF 


1167 

0417 

DO 


1170 

0604 

GOTO 

/(REFERENCED) 

1171 

0615 

comment 


1172 

1233 

ASK 


1173 

1204 

TYPE 


1174 

7503 

library 


1175 

2204 

ERASE 


1176 

0636 

WRITE 


1177 

1257 

MODIFY 


1200 

0177 

START 

/RETURN TO COMMAND MODE VlA ’QUIT' 

1201 

1563 

RETRN 

1202 

6361 

HSPX 

/ACTIVATE the HIGH SPEED READER 



2165 

FmT ab^* , 



2165 

2533 

2533 

/ABS 


2166 

2650 

2650 

/SGN 


2167 

2636 

2636 

/ITR 


2170 

2565 

2565 

/DIS 


2171 

2633 

2630 

/RAN 


2172 

2517 

2517 

/ADC 


2173 

2572 

2572 

/ATN 


2174 

2624 

2624 

/EXP 


2175 

2625 

2625 

/LOG 


2176 

2654 

2664 

/SIN 

/list of COOED function NAMES 

2177 

2575 

2575 

/COS 


2200 

2702 

2702 

/SOT 


2201 

2631 

2631 

/NEW 


2202 

2567 

2567 

/COM 


2203 

0330 

0330 

/X 
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/quad - 'IUlTI-JSER system with Focal. ji2K PAI,10 


V133 


14-MAR-69 


I5s49 


/COntrOL table 


3^54 

5,451 

IGNORE 


0355 

CTABS* 

0355 

2456 

ECHO 

2356 

0333 

CNTRLX 

2357 

0326 

CNTRLC 

0360 

0333 

CNTRLX 

2361 

0333 

CNTRLX 

2362 

0333 

CNTRLX 

0363 

0456 

ECHO 

0364 

0333 

CNTRLX 

2365 

0333 

CNTRLX 

2366 

0467 

noecho 

0367 

0333 

CNTRLX 

0370 

0467 

noecho 

0371 

0453 

GOCR 

0372 

0333 

CNTRLX 

2373 

0333 

CNTRLX 

21374 

0333 

CNTRLX 

0375 

0333 

CNTRLX 

0376 

0345 

silent 

0377 

0333 

CNTRLX 

2400 

0351 

ttype 

3421 

0333 

CNTRLX 

0422 

0333 

CNTRLX 

0433 

3333 

CNTRLX 

0424 

0456 

ECHO 

0435 

^333 

CNTRLX 

0426 

0333 

CNTRLX 

0437 

0451 

ignore 

0410 

0451 

ignore 

0411 

0451 

IGNORE 

0412 

0456 

ECHO 

0413 

0453 

GOCR 


/L.T, 

/tA-HOME 

/tB 

/C-ENO OF message 

/D 

/E 

/F 

/G - BELL 

/H 

/I 

/J - LF , 

/K 

/L -FF, 

/M -'C.R, 

/N - 
/0 
/P 
/Q 

/R-TAPE 

/S- (7000) - FOR DEBUGGING 
/T-NOT TAPE 
/U 
/V 

/W -^E.O, media 
/X-ERASE 

n 

/i 

/i 

/\ 

/] 

/UPAR - 
/UEPTARaGoRO 



4W0R13 (10 UlGIT) OVERLAY FqR FOCAL. ?2K PAL10 Vl33 14-MAR-69 15l54 

/ 4 RORD <10 DIGIT) overlay for FQCAL.J'HK 


0004 W0RUS=4 

0012 DIDITS=12 



3052 

*FlS‘' 

0052 

0000 

0 


00 70 

# G I N C 

00 70 

0006 

0OROS+2 


0116 

*mflt 

0116 

7774 

-i^ORDS 


3210 

»FHST+2 

3210 

0355 

TEXT 6»C-4wORD6> 

3211 

6427 


3212 

1722 


3213 

0400 



5526 

*MD 

5526 

7766 

-DIGITS /Extended length of output format 

5527 

0013 

01GITS+1/RND2 


5310 

»TWqpI*2 

5310 

3755 

3755 /CORRECT CONSTANTS 


5314 

*Pl+2 

5314 

3755 

3755 


5320 

•pIOT+2 

5320 

3755 

3755 


6143 

»dcount 

6143 

7765 

-OIGITS-1 


6277 

•pTEN+2 

6277 

3i46 

3j^46 /constant one 


6402 


6402 

7410 

SKP /DO not Clear overflow words 


6540 

*2ERO-t-20 

6540 

7000 

NOP 


6736 

•TEST2 

6736 

0043 

43 


7036 

*DMULT4 

7036 

3275 

OCA OATUMoS 


7105 

•MULDI V+4 

7105 

7000 

NOP 


7072 

*DMD0n£*7 

7072 

7000 

NOP 
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4W0RD (II? UIGIT) Overlay I-OR EOCAl.ZiiK PAL10 Vl33 14-MAR-69 15 554 



7260 

*MlF 




7^60 

77^5 


-43 




7271 

*uY3 + 2 




7271 

1043 


TAD 

OVERl 


7272 

1047 


TAD 

OVER2 


7273 

3253 


DCA 

MP5 


7274 

7004 


ral 



7275 

10^2 


TAD 

ACIL 

/COM0INE ONE POSITION AND 

7276 

1046 


TAO 

LORD 


7277 

3256 


OCA 

MP2 

/SAVE RESULT 

7300 

7004 


RAL 



7301 

1045 


TAD 

HORD 

/add overflow 

7302 

1041 


TAD 

ACIH 


7303 

742^? 


S'NL 


/SKIP IF OVERFLOW 

7304 

5312 


JMP 

.♦6 


7305 

3045 


DCA 

HORD 

/update flac 

7306 

1253 


TAD 

MP5 


7337 

3047 


DCA 

0VER2 


7310 

1256 


TAD 

MP2 


7311 

3046 


OCA 

LORO 


7312 

7200 


CLA 


/CLEAR accumulator 

7313 

1254 


TAO 

MPl 

/SAVE OVERFLOW BITS CIRCULARLY 

7314 

7004 


RAL 



7315 

3254 


DCA 

HPl 


7316 

12 0r 


tad 

MP'* 


7317 

7004 


ral 


7320 

3200 


DCA 

MP4 


7321 

1335 


TAD 

DNORM 



NOPUNCH 

0001 field 1 

XLIST 
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/bK 


OvE-^LAY FDR FDCAL.Ei^K PAL10 V133 14-MAR-69 15:57 

/8K OVERLAY FOR F0CaL,2?K 

/TEXT IS IN FIELD 1. VARIABLES AND POL ARE IN 


/ S^\/£ STSK j (o)-7577;200 
/JSaVE FCLQS0-3377J 

/.Save nulhsioio^j 10113 
/.Save niama;i 0100-(8) ;i0ii3 


6201 COFs6201 

00^0 T =^0 

0000 P=0 

0030 field 0 



3100 

LINE0=100 




0022 

*PC 




30 22 

0030 


0 




0031 

•lastv 




0031 

3236 


COMEOUT 




3060 

*BuF 




0360 

0126 


LINEI 




0131 

•comsuf 




3131 

3010 


1 0 




0132 

♦ cfrs 




0132 

0100 


LINE0 




0134 

• ENDT 




0134 

0126 


LINEI 




0166 

• 166 




0166 

2565 

DpC, 

ROT + 5 

/pc 


0167 

6160 

DTHIS, 

THISD 

/THI SLN 


0170 

6173 

DPU» 

PTIO 

/PTl 


0171 

7557 

OXRTi 

xrtd 

/(TAD I 

XRT) 

0172 

7564 

DAXiN, 

axind 

/{DCA I 

AXIN) 

0173 

2572 

OAX UT' 

AXqUtO 

/(jAD I 

^XftUT) 

0174 

0120 

DL ^ B # 

0LIB8 

/LINK FOR 8K L-COMMAND 
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PAGE 1 

field 0 



/bk 


OVt^LAY FDH FOCAL, Z2K 


PAL10 


V133 


14-MAR-69 


15:57 


/////////////////////////////////////////// 


0000 

00 01 

3ioi20 

0000 

field 1 

*0000 

0 /ZERO PC 

0001 

30 00 


0 

00 02 

0000 


0 /TOUMP OAjA 

0003 

3000 


0 

0004 

3000 


0 

0005 

5051 


5051 

0006 

3060 


bufr 

0007 

0126 


LlNEl 

0100 

gl00 

3000 

*LInE0 

0 

0131 

3000 


0 

0102 

0355 

text 9C. 

^8K focal 9 

0103 

0104 

0105 

0106 
0107 
0110 

7013 

4006 

1703 

0114 

4000 

6171 


6171 

0111 

6671 


6671 

3112 

7715 


7715 

0113 

6201 

stbk. 

COF P /START 8K USER 

0114 

1007 


TAD 7 

0115 

3406 


OCA I 6 

0116 

6202 


CIF P 

0117 

5525 


JMP 1 RLI8 

0120 

6002 

DlIBB, 

lOF 

0121 

1406 


TAD I 6 

3122 

3007 


DCA 7 

0123 

6203 


CIF CDF P 

0124 

5525 


JMP I ,+l 

0125 

7600 

RLlBi 

7600 /RETURN To DISK 


0126 

LiNElsi 



0000 Flt-LD 0 

0000 *0000 

0000 0000 0 


nopunch 

XL 1ST 
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APPENDIX F 
FOCAL SYNTAX 

Table F-1 

Syntax in Backus Normal Form 

< immediate command > : : = <program statement >C .R. 

<indirect command > : : = <line ^ > <program statement > C . R. 

<line ^ > : : = <group no. > • <line no. > 

<group no . > : : = 1 -31 

<line no. >: : =01-99 | 1-9 

< program statement > : : = <command > | 

<command > <space > <arguments > | <command string > ) 

<program statement >; <program statement > 

<command > : : = WRITE | DO | ERASE | GO | GOTO 

<arguments > : : = ALL | <line ^ > | <group no. > 

<command string > : : = <type statement > | < Library statement > | 

<Ask statement > [ < If statement > 

< Modify statement > | <Set statement > 

<For statement > | QUIT| RETURN | COMMENT 1 CONTINUE 

<Set statement > : : = SET <space > <variable > = <expression > 

<For statement > : : = FOR <space > <variable > = <expression >, 

<expression >, <expression >; <program statement > | 

FOR <space > <variable > = <expression >, <expression >; 

<program statement > 

<If statement > : : = IF <space > <subscript Xline ^ >; | 

IF <space > <subscript Xline ^ >, <line ^ >; | 

IF <space > <subscript > <line ^ >, <line ^ >, <line ^ > 

<Ask statement > : : = ASK <space > <Ask arguments > 

<Ask arguments > : : = <operand >, <Ask arguments >| 

! <Ask arguments > | ^ <Ask arguments > | % <format code >, <Ask arguments > 

" <character string > " <Ask arguments > | <null > | 

<operand > <space > | $ 

<format code > : : = <line ^ > | <null > | <group no. > 

< Library statement > : : = 

LIBRARY <space > < Library Command > 

<spaceXfile NAME > 

<Library Command> : : = CALL| SAVE| DELETE] LIST 
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<characi-er string > : : = <null > | <character > <character string > 
<character>: : =a-z | <digit>| <special symbols > 

<digit>: : = 1-9 I 0 

<terminator > : : =<space>j , | ; |C.R. 

<not space > : : = <null > ] <character > 

<special symbols > : : = & | * | : | @ 

<leader-trailer > : : = @ | [200 ] | <null > 

<File name > : : = <character string > 

<data list > : : = <variable > | <variable >, <data list > 

<Type statement > ; ; = TYPE <space > <Type arguments > 

<Type Arguments > : : = <Ask arguments > | <expression >| 

<Type arguments >, <Type arguments > 

< Modify statement > : : = MODIFY <space><line 

This command is then followed by keyboard input 
characters defined as <search character > 
plus 

<null > I <character string >| <control character >] 
<character string > <control characters > 

<control charcter > : : = [bell] <search character >| 
[form] I [line-feed] | C.R. | 

[1^C ] I ^ I [rub-out] 

<Variable > : : = < letter > | < letter Xcharacter >l 
< Variable > <subscript > 

<Subscript > : : = <left paren > <expression > <right paren > 

<operand > : : =<variable > | <constant >j <subscript > | <function > 

<left paren >:;=<[( | [ 

<right paren > : : = > ) j ] 

<expression > : : = < unary > <operand > | <operand > | 

<expression > < operator > <expression > 

<unary > : ; = +| - 

<operator >::= t|* | /|+|“ 

<Function > : : = F <function code > <subscript > 

<function code > : : =SIN | COS | LOG | ATN I EXP 

SQT I ADC I DIS I ITR | 

ABS I SGN I RAN | NEW j 

NOTE 

Spaces are ignored except when required. 
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Table F-2 

FOCAL Commands In French 


Commandments Francais Pour Le Calculateur Electronique "IGOR" 



English 

French 

Letter 

1. 

SET 

ORGANIZE 

o 

2. 

FOR 

QUAND 

Q 

3. 

IF 

SI 

S 

4. 

DO 

FAIS 

F 

5. 

GOTO 

VA 

V 

6. 

COMMENT 

COMMENTE 

C 

7. 

ASK 

DEMAN DE 

D 

8. 

TYPE 

TAPE 

T 

9. 

LIBRARY 

ENTREPOSE 

E 

10. 

ERASE 

BIFFE 

B 

11. 

WRITE 

INSCRIS 

I 

12. 

MODIFY 

MODIFIE 

M 

13. 

QUIT 

ARRETE 

A 

14. 

RETURN 

RETOURNE 

R 


CE N'EST PAS PARFAIT 
MAIS "IGOR" EST INTELLIGENT 
IL COMPRENDRA 


NOTE 

"IGOR" refers to PDP-8/1 
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APPENDIX G 
ILLUSTRATIONS 



Figure G-1 (Sheet 1) Arithmetic Evaluation 
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Figure G-1 (Sheet 2) Arithmetic Evaluation 
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Analysis of Operands 


Analysis of Sub- Expressions and Constants 


Figure G-1 (Sheet 3) Arithmetic Evaluation 




ASSEMBLE 
CODE NAME 


ARG =>FLARG 
(PTl) => FLARG 
CHAR = RPAR, 
COMMA OR C. R. 


LIST OF 
COOED NAMES 


f POPA > 
GET BACK AND 
BRANCH ON 
JUNCTION CODE> 


LIST OF 
FUNCTION 
ADDRESSES 


TYPICAL FUNCTION 

COMPUTE 

THE 

FUNCTION 


LEAVE 
ARGUMENT 
IN FLAG 


VIA 

i ... 

FUNCTION 

EFUN3I 

EFUN3 

RETURN 


ILLEGAL 

NAME 


NORMALIZE 
AND SAVE 
IN FLARG 


Figure G-1 (Sheet 4) Arithmetic Evaluation (Analysis of Functions) 
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Figure G-2 Command/lnput 










G-6 















Figure G-5 (Sheet 1) Input/Output Commands 







FINCR 




FLIMIT 


SAVE THE 
INCREMENT 


PUSHJ \ 
EVAL-1 / 


> — c 


FLIMIT 


FINFIN 


TLIST 


SAVE LIMIT 
AND 

TEXT POINTERS 
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SEARCH CHARACTER Q SCOT 


Figure G-8 Characfer Editing 
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Figure G-9 (Sheet 2) ERASE and Delete 
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Figure G-10 (Sheet 1) Interrupt Handler 
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Figure G-10 (Sheet 2) Interrupt Handler 
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o 


I 





Flqure G-11 Variable Look-up and Enter 
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Figure G-12 Character Unpacking 








"FINOLN 



Figure G-13 "FINDLN" Routine 
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Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness of its 
publications. To do this effectively we need user feedback > - your critical evaluation of this manual. 

Please comment on this manual’s completeness, accuracy, organization, usability, and readability. 


Did you find errors in this manual? Please explain, giving page numbers. 


How can this manual be improved? 


DEC also strives to keep its customers informed on current DEC software and publications. Thus, the 
following periodically distributed publications are available upon request. Please check the publication(s) 
desired. 


□ Digital Software News for 
the PDP-8 Family , contains 
current information on soft- 
ware problems, programming 
notes, new and revised soft- 
ware and manuals. 


Q PDP-8/I Software Manual 
Update , contains addenda/ 
errata sheets for updating 
software manuals. 


Q PDP-8/I User’s Bookshelf, 
contains a bibliography of 
current and forthcoming 
software manuals. 
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